home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / +look_here_1st!+ / reader_requests / alienbreed3d2 / veryverynewrender.s < prev    next >
Text File  |  1997-11-28  |  67KB  |  4,788 lines
  1.  
  2. SP EQU 1
  3. SPM EQU 1
  4. BS EQU 1
  5. BP EQU 1
  6. SHA EQU 1
  7. PH EQU 1
  8. MB EQU 0
  9. ScreenWidth EQU 320
  10.  
  11. LARGESCREEN equ 1
  12.  
  13.  
  14. * the 'Hello World' program in 68000 Assembler
  15. * the C version can be found in the Intuition manual
  16.  
  17. * this source code (C) HiSoft 1992 All Rights Reserved
  18.  
  19. * for Devpac Amiga Version 2 the following symbols were changed
  20. * to avoid clashes with the new include files:
  21. * Screen->MyScreen, NewScreen->MyNewScreen
  22. * Window->MyWindow, NewWindow->MyNewWindow
  23.  
  24.     opt    c+,d+
  25.  
  26.     include    workbench:utilities/devpac/system            use pre-assembled header
  27.     include    exec/exec_lib.i
  28.     include    intuition/intuition.i
  29.     include    intuition/intuition_lib.i
  30.     include    graphics/graphics_lib.i
  31.     include    graphics/text.i
  32.  
  33. INTUITION_REV    equ    31        v1.1
  34. GRAPHICS_REV    equ    31        v1.1
  35.  
  36. * Open the intuition library
  37.  
  38.     moveq    #100,d4            default error return code
  39.  
  40.     moveq    #INTUITION_REV,d0    version
  41.     lea    int_name(pc),a1
  42.     CALLEXEC OpenLibrary
  43.     tst.l    d0
  44.     beq    exit_false        if failed then quit
  45.     move.l    d0,_IntuitionBase    else save the pointer
  46.  
  47.     moveq    #GRAPHICS_REV,d0
  48.     lea    graf_name(pc),a1
  49.     CALLEXEC OpenLibrary
  50.     tst.l    d0
  51. ;    beq    exit_closeint        if failed then close Int, exit
  52.     move.l    d0,_GfxBase
  53.     lea    MyNewScreen(pc),a0
  54.     CALLINT    OpenScreen        open a screen
  55.     tst.l    d0
  56. ;    beq    exit_closeall        if failed the close both, exit
  57.     move.l    d0,MyScreen
  58.  
  59.     move.l MyScreen,a0
  60.     lea sc_BitMap(a0),a0
  61.     lea bm_Planes(a0),a0
  62.  
  63.     
  64.     move.l #RAWSCRN,(a0)
  65.     move.l #RAWSCRN+10240,4(a0)
  66.     move.l #RAWSCRN+10240*2,8(a0)
  67.     move.l #RAWSCRN+10240*3,12(a0)
  68.     move.l #RAWSCRN+10240*4,16(a0)
  69.     move.l #RAWSCRN+10240*5,20(a0)
  70.     move.l #RAWSCRN+10240*6,24(a0)
  71.     move.l #RAWSCRN+10240*7,28(a0)
  72.  
  73. * now initialise a NewWindow structure. This is normally easier to
  74. * do with dc.w/dc.l statement etc, but for comparison with the C
  75. * version we do it like this
  76.     lea    MyNewWindow(pc),a0    good place to start
  77.     move.w    #20,nw_LeftEdge(a0)
  78.     move.w    #20,nw_TopEdge(a0)
  79.     move.w    #300,nw_Width(a0)
  80.     move.w    #100,nw_Height(a0)
  81.     move.b    #0,nw_DetailPen(a0)
  82.     move.b    #1,nw_BlockPen(a0)
  83.     move.l    #window_title,nw_Title(a0)
  84. _temp    set    WINDOWCLOSE!SMART_REFRESH!ACTIVATE!WINDOWSIZING
  85.     move.l    #_temp!WINDOWDRAG!WINDOWDEPTH,nw_Flags(a0)
  86.     move.l    #CLOSEWINDOW,nw_IDCMPFlags(a0)
  87.     move.w    #CUSTOMSCREEN,nw_Type(a0)
  88.     clr.l    nw_FirstGadget(a0)
  89.     clr.l    nw_CheckMark(a0)
  90.     move.l    MyScreen(pc),nw_Screen(a0)
  91.     clr.l    nw_BitMap(a0)
  92.     move.w    #100,nw_MinWidth(a0)
  93.     move.w    #25,nw_MinHeight(a0)
  94.     move.w    #640,nw_MaxWidth(a0)
  95.     move.w    #200,nw_MaxHeight(a0)
  96.  
  97. scrwid    EQU    320
  98. scrht    EQU    256
  99.  
  100.     move.l FASTBUFFER,CHUNKYBUFFER
  101.  
  102.     move.l 4.w,a6
  103.     
  104.     move.l    #scrwid*scrht,d0
  105.     move.l    #MEMF_CLEAR,d1        ;best possible memory
  106.     jsr    _LVOAllocMem(a6)
  107.     move.l    d0,CHUNKYCOMPARE
  108.     beq    nochunkycomp
  109.     
  110.     move.l    #scrwid*scrht,d0
  111.     move.l    #MEMF_CHIP+MEMF_CLEAR,d1
  112.     jsr    _LVOAllocMem(a6)
  113.     move.l    d0,CHIPBUF1
  114.     beq    nochipbuf1
  115.     
  116.     move.l    #scrwid*scrht,d0
  117.     move.l    #MEMF_CHIP+MEMF_CLEAR,d1
  118.     jsr    _LVOAllocMem(a6)
  119.     move.l    d0,CHIPBUF2
  120.     beq    nochipbuf2
  121.     
  122.     move.l    4.w,a6
  123.     move.l    #-1,d0
  124.     jsr    _LVOAllocSignal(a6)
  125.     move.l    d0,SIG1
  126.     blt    nosig1
  127.  
  128.     move.l    4.w,a6
  129.     move.l    #-1,d0
  130.     jsr    _LVOAllocSignal(a6)
  131.     move.l    d0,SIG2
  132.     blt    nosig2
  133.     
  134.     ;set the signals to say that the previous ctp conversion
  135.     ;has been completed
  136.     move.l    4.w,a6
  137.     move.l    SIG1,d0
  138.     or.l    SIG2,d0
  139.     move.l    d0,d1
  140.     jsr    _LVOSetSignal(a6)
  141.     
  142.     ;initialise ctp routine
  143.     move.l    CHUNKYBUFFER,a0        ;chunky buffer
  144.     move.l    CHUNKYCOMPARE,a1    ;chunky compare buffer
  145. ;    move.l    MyScreen,a2
  146. ;    lea    sc_BitMap(a2),a2
  147. ;    lea    bm_Planes(a2),a2    ;plane pointer
  148.     move.l #backupptr,a2
  149.     move.l    _GfxBase,a3
  150.     move.l    #1,d0            ;signals1
  151.     move.l    #2,d1            ;signals2
  152.     move.l    #scrwid*scrht,d2    ;number of pixels
  153.     move.l    #0,d3            ;byte offset
  154.     move.l    CHIPBUF1,d4
  155.     move.l    CHIPBUF2,d5
  156.     jsr    _c2p8_init
  157.     
  158.  
  159.  
  160. * thats it set up, now open the window (a0=NewWindow already)
  161. ;    CALLINT    OpenWindow
  162. ;    tst.l    d0
  163. ;    beq    exit_closescr            if failed
  164. ;    move.l    d0,MyWindow            save it
  165. ;
  166. ;    move.l    d0,a1                window
  167. ;    move.l    wd_RPort(a1),a1            rastport
  168. ;    moveq    #20,d0                X
  169. ;    moveq    #20,d1                Y
  170. ;    CALLGRAF Move                move the cursor
  171. ;
  172. ;    move.l    MyWindow(pc),a0
  173. ;    move.l    wd_RPort(a0),a1            rastport
  174. ;    lea    hello_message(pc),a0
  175. ;    moveq    #11,d0
  176. ;    CALLGRAF Text                print something
  177. ;
  178. ;    move.l    MyWindow(pc),a0
  179. ;    move.l    wd_UserPort(a0),a0
  180. ;    move.b    MP_SIGBIT(a0),d1        (misprint in manual)
  181. ;    moveq    #0,d0
  182. ;    bset    d1,d0                do a shift
  183. ;    CALLEXEC Wait
  184.  
  185. ;    moveq    #0,d4                return code
  186.  
  187. * various exit routines that do tidying up, given a return code in d4
  188.  
  189. ;    move.l    MyWindow(pc),a0
  190. ;    CALLINT CloseWindow
  191.  
  192. ;exit_closescr
  193. ;    move.l    MyScreen(pc),a0
  194. ;    CALLINT CloseScreen
  195.  
  196. ;exit_closeall
  197. ;    move.l    _GfxBase(pc),a1
  198. ;    CALLEXEC CloseLibrary
  199.  
  200. ;exit_closeint
  201. ;    move.l    _IntuitionBase(pc),a1
  202. ;    CALLEXEC CloseLibrary
  203.  
  204. ;done:
  205. ;    bra done
  206.  
  207. SPECULAR EQU SP
  208. SPECMAP EQU SPM
  209. BUMPSPEC EQU BS
  210. BUMPPHONG EQU BP
  211. SHADOWMAP EQU SHA
  212. SHADING EQU PH
  213. MOTIONBLUR EQU MB
  214.  
  215.  
  216.  move.l #PALETTEBIT,a0
  217.  move.l #COPIEDPAL+4,a1
  218.  move.w #255,d0
  219.  
  220. copydown:
  221.  move.b 1(a0),(a1)
  222.  move.b 3(a0),4(a1)
  223.  move.b 5(a0),8(a1)
  224.  add.w #6,a0
  225.  add.w #12,a1
  226.  dbra d0,copydown
  227.  
  228.  move.w #256,COPIEDPAL
  229.  move.w #0,COPIEDPAL+2
  230. LOOKFORME:
  231.  move.l MyScreen,a0
  232.  lea sc_ViewPort(a0),a0
  233.  move.l #COPIEDPAL,a1
  234.  move.l _GfxBase,a6
  235.  jsr -$372(a6)
  236.  
  237.  move.l MyScreen,a4
  238.  move.w sc_MouseX(a4),d0
  239.  move.w sc_MouseY(a4),d1
  240.  move.w d0,OLDXM
  241.  move.w d1,OLDYM
  242.     
  243.  move.l 4.w,a6
  244.  move.l #doslibname,a1
  245.  moveq #0,d0
  246.  jsr -552(a6)
  247.  move.l d0,doslib
  248.  
  249.  move.l doslib,a6
  250.  move.l #OBJNAME,d1
  251.  move.l #1005,d2
  252.  jsr -30(a6)
  253.  move.l d0,ROTATEDPTS
  254.  
  255.  move.l doslib,a6
  256.  move.l d0,d1
  257.  move.l #POLYGONDATA,d2
  258.  move.l #30000,d3
  259.  jsr -42(a6)
  260.  
  261.  move.l doslib,a6
  262.  move.l ROTATEDPTS,d1
  263.  jsr -36(a6)
  264.  
  265. loop:
  266.  
  267.  move.w #0,temp
  268.  
  269.  move.l #POLYGONDATA,a3
  270.  move.w (a3)+,SORTIT
  271.  move.l a3,START_OF_OBJECT
  272.     
  273.  move.w (a3)+,num_points
  274.  move.w (a3)+,d6
  275.  move.w d6,num_frames
  276.  move.l a3,POINTER_TO_POINTERS
  277.  lea (a3,d6.w*4),a3
  278.  move.l a3,LinesPtr
  279.  moveq #0,d5
  280.  moveq #0,d2
  281.  
  282.  move.l POINTER_TO_POINTERS,a4
  283.  move.w (a4,d5.w*4),d2
  284.  add.l START_OF_OBJECT,d2
  285.  move.l d2,PtsPtr
  286.  move.w 2(a4,d5.w*4),d5
  287.  add.l START_OF_OBJECT,d5
  288.  move.l d5,PolyAngPtr
  289.  move.l d2,a3
  290.  move.w num_points,d5
  291.  
  292.  move.l (a3)+,OBJONOFF
  293.  
  294.  move.l a3,PointAngPtr
  295.  add.w d5,d5
  296.  move.w d5,d2
  297.  add.w d5,d5
  298.  add.w d5,d2
  299.  add.w d2,a3
  300.  move.l a3,PtsPtr
  301.  
  302.  move.l MyScreen,a4
  303.  move.w sc_MouseX(a4),d0
  304.  move.w sc_MouseY(a4),d1
  305.  
  306.  sub.w OLDXM,d0
  307.  sub.w OLDYM,d1
  308.  add.w d0,OLDXM
  309.  add.w d1,OLDYM
  310.  
  311.  btst #6,$bfe001
  312.  beq.s .SHIFTABOUT
  313.  
  314.  muls #8190,d0
  315.  divs #320,d0
  316.  add.w d0,YANG
  317.  and.w #8190,YANG
  318.  muls #8190,d1
  319.  divs #320,d1
  320.  and.w #8190,d1
  321.  add.w d1,XANG
  322.  and.w #8190,XANG
  323.  
  324. ; add.w #40,AANG
  325. ; add.w #70,BANG
  326. ; and.w #8191,AANG
  327. ; and.w #8191,BANG
  328.  
  329. ; add.w #60,CANG
  330. ; add.w #90,DANG
  331. ; and.w #8191,CANG
  332. ; and.w #8191,DANG
  333.  
  334.  
  335.  bra .ROTABOUT
  336. .SHIFTABOUT
  337.  
  338.   muls #8190,d0
  339.  divs #320,d0
  340.  add.w d0,BANG
  341.  and.w #8190,BANG
  342.  muls #8190,d1
  343.  divs #320,d1
  344.  and.w #8190,d1
  345.  add.w d1,AANG
  346.  and.w #8190,AANG
  347.  
  348.  
  349. .ROTABOUT
  350.  
  351.  move.w AANG,d1
  352.  move.w BANG,d3
  353. ; cmp.w #2,d6
  354. ; bne.s .notsecrot
  355. ; move.w CANG,d1
  356. ; move.w DANG,d3
  357. ;.notsecrot
  358.  move.l #SINETABLE,a1
  359.  move.w (a1,d1.w),XSIN    ;xsin
  360.  move.w (a1,d3.w),YSIN    ;ysin
  361.  
  362.  add.w #2048,a1
  363.  move.w (a1,d1.w),XCOS    ;xcos
  364.  move.w (a1,d3.w),YCOS    ;ycos
  365.  
  366.  move.w XANG,d1
  367.  move.w YANG,d3
  368. ; cmp.w #2,d6
  369. ; bne.s .notsecrot
  370. ; move.w CANG,d1
  371. ; move.w DANG,d3
  372. ;.notsecrot
  373.  move.l #SINETABLE,a1
  374.  move.w (a1,d1.w),XSIN2    ;xsin
  375.  move.w (a1,d3.w),YSIN2    ;ysin
  376.  
  377.  add.w #2048,a1
  378.  move.w (a1,d1.w),XCOS2    ;xcos
  379.  move.w (a1,d3.w),YCOS2    ;ycos
  380.  
  381.  
  382. ************************************************
  383. ************************************************
  384. ************************************************
  385. ************************************************
  386. ************************************************
  387. ************************************************
  388. ************************************************
  389. ************************************************
  390. ************************************************
  391. ************************************************
  392. ************************************************
  393. ************************************************
  394. ************************************************
  395. ************************************************
  396.  
  397. *SHADOW BUFFER CALCULATION
  398.  
  399.  
  400. ; First, calculate the normal brightnesses
  401. ; for points. NB: -1,-1,-1 = this point not used
  402. ; in gouraud shading.
  403.  
  404.  move.l #NORMBRIGHTS,a2
  405.  move.l PointAngPtr,a0
  406.  move.w num_points,d7
  407.  
  408.  move.l #NORMVECTS,a5
  409.  
  410.  subq #1,d7
  411.  
  412. CALCNORMBRIGHTS:
  413.  
  414.  move.w (a0)+,d0
  415.  move.w (a0)+,d1
  416.  move.w (a0)+,d2
  417.  
  418.  move.w #0,d6
  419.  
  420.  cmp.w #-1,d0
  421.  bne.s .notnot
  422.  cmp.w #-1,d1
  423.  bne.s .notnot
  424.  cmp.w #-1,d2
  425.  bne.s .notnot
  426.  
  427.  move.w #-1,x1
  428.  move.w #-1,y1
  429.  move.w #-1,z1
  430.  bra .dontbother
  431.  
  432. .notnot:
  433.  neg.w d1
  434.  
  435.  move.w d0,d3
  436.  move.w d2,d5
  437.  
  438.  muls YCOS,d0
  439.  muls YSIN,d2
  440.  sub.l d2,d0
  441.  add.l d0,d0
  442.  swap d0
  443. ; asr.l #6,d0    ; new x*512
  444.  
  445.  muls YSIN,d3
  446.  muls YCOS,d5
  447.  add.l d5,d3
  448.  add.l d3,d3
  449.  swap d3
  450.  move.w d3,d2    ; new z
  451.  
  452.  move.w d1,d4
  453.  move.w d2,d5
  454.  muls XCOS,d1
  455.  muls XSIN,d2
  456.  sub.l d2,d1
  457.  add.l d1,d1
  458.  swap d1
  459.  
  460.  muls XSIN,d4
  461.  muls XCOS,d5
  462.  add.l d5,d4
  463.  add.l d4,d4
  464.  swap d4
  465.  move.w d4,d2    ; new z
  466.  
  467.  
  468.  move.w d0,d3
  469.  move.w d2,d5
  470.  
  471.  muls YCOS2,d0
  472.  muls YSIN2,d2
  473.  sub.l d2,d0
  474.  add.l d0,d0
  475.  swap d0
  476.  
  477.  muls YSIN2,d3
  478.  muls YCOS2,d5
  479.  add.l d5,d3    
  480.  add.l d3,d3
  481.  swap d3
  482.  move.w d3,d2    ; new z
  483.  
  484.  move.w d1,d4
  485.  move.w d2,d5
  486.  muls XCOS2,d1
  487.  muls XSIN2,d2
  488.  sub.l d2,d1
  489.  add.l d1,d1
  490.  swap d1
  491.  
  492.  muls XSIN2,d4
  493.  muls XCOS2,d5
  494.  add.l d5,d4
  495.  add.l d4,d4
  496.  swap d4
  497.  
  498.  move.w d0,x1
  499.  move.w d1,y1
  500.  move.w d4,z1
  501.  
  502.  tst.w y1
  503.  blt.s .okpos
  504.  
  505.  move.w x1,d1    ; 0-1024
  506.  asr.w #4,d1    ; 0-64
  507.  move.w z1,d2    ; 0-1024
  508.  asr.w #4,d2    ; 0-64
  509.  
  510.  muls d1,d1
  511.  muls d2,d2
  512.  add.l d1,d2
  513.  jsr CALCSQROOT
  514.  tst.w d2
  515.  beq.s .okpos
  516.  
  517.  move.w d2,d3    ; 0-64
  518.  neg.w d3
  519.  add.w #127,d3    ; 64-127
  520.  
  521.  move.w z1,d4
  522.  muls d3,d4
  523.  divs d2,d4
  524.  
  525.  move.w x1,d0
  526.  muls d3,d0
  527.  divs d2,d0
  528.  
  529. ; asr.w #1,d4
  530. ; asr.w #1,d0
  531.  
  532. ; neg.w y3
  533.  
  534. .okpos
  535.  
  536.  asr.w #4,d4
  537.  add.w #128,d4
  538.  move.b d4,d6
  539.  lsl.w #8,d6
  540.  asr.w #4,d0
  541.  add.w #128,d0
  542.  move.b d0,d6
  543.  
  544. ; move.w d1,d6    ; new y 
  545. ;
  546. ; asr.w #4,d6
  547. ; add.w #20,d6
  548. ; 
  549. ; ble.s .okokok
  550. ; 
  551. ; moveq #0,d6
  552. ; 
  553. ;.okokok:
  554. ; add.w #$1c,d6
  555. ; cmp.w #1,d6
  556. ; bge.s .okokokok
  557. ; moveq #1,d6
  558. ;.okokokok:
  559.  
  560. ; add.w #64,d6
  561. ; 
  562. ; cmp.w #28,d6
  563. ; blt.s .okbig
  564. ; move.w #28,d6
  565. ;.okbig
  566.  
  567. .dontbother:
  568.  move.w x1,(a5)+
  569.  move.w y1,(a5)+
  570.  move.w z1,(a5)+
  571.  move.w d6,(a2)+
  572.  
  573.  dbra d7,CALCNORMBRIGHTS
  574.  
  575.  
  576. ; Next, calculate the point coords for
  577. ; the shadow buffer.
  578.  
  579.  move.l #SHADOWPTS,a2
  580.  move.l PtsPtr,a0
  581.  move.w num_points,d7
  582.  subq #1,d7
  583.  
  584. ROTPTLOPSHAD:
  585.  move.w (a0)+,d0
  586.  move.w d0,d3
  587.  move.w (a0)+,d1
  588.  move.w (a0)+,d2
  589.  move.w d2,d5
  590.  
  591.  muls YCOS,d0
  592.  muls YSIN,d2
  593.  sub.l d2,d0
  594.  add.l d0,d0
  595.  swap d0
  596. ; asr.l #6,d0    ; new x*512
  597.  
  598.  muls YSIN,d3
  599.  muls YCOS,d5
  600.  add.l d5,d3
  601.  add.l d3,d3
  602.  swap d3
  603.  move.w d3,d2    ; new z
  604.  
  605.  move.w d1,d4
  606.  move.w d2,d5
  607.  muls XCOS,d1
  608.  muls XSIN,d2
  609.  sub.l d2,d1
  610.  add.l d1,d1
  611.  swap d1
  612.  
  613.  muls XSIN,d4
  614.  muls XCOS,d5
  615.  add.l d5,d4
  616.  add.l d4,d4
  617.  swap d4
  618.  move.w d4,d2    ; new z
  619.   
  620.  move.w d0,d3
  621.  move.w d2,d5
  622.  
  623.  muls YCOS2,d0
  624.  muls YSIN2,d2
  625.  sub.l d2,d0
  626.  asr.l #6,d0    ; new x*512
  627.  
  628.  muls YSIN2,d3
  629.  muls YCOS2,d5
  630.  add.l d5,d3
  631.  add.l d3,d3
  632.  swap d3
  633.  move.w d3,d2    ; new z
  634.  
  635.  move.w d1,d4
  636.  move.w d2,d5
  637.  muls XCOS2,d1
  638.  muls XSIN2,d2
  639.  sub.l d2,d1
  640.  asr.l #6,d1    ; new y*512
  641.  
  642.  muls XSIN2,d4
  643.  muls XCOS2,d5
  644.  add.l d5,d4
  645.  add.l d4,d4
  646.  swap d4
  647.  move.w d4,d2    ; new z
  648.  
  649.  ext.l d2
  650.  
  651.  move.w XOFF,d5
  652.  ext.l d5
  653.  asl.l #8,d5
  654.  add.l d5,d5
  655.  add.l d5,d0
  656.  
  657.  move.l d0,(a2)+
  658.  move.l d1,(a2)+
  659.  move.w d2,(a2)+
  660.  
  661.  dbra d7,ROTPTLOPSHAD
  662.  
  663.  
  664.  
  665. ***************************************
  666. * Calculate viewer position for specularity..
  667.  
  668.  move.w #0,d0
  669.  move.w #0,d1
  670.  move.w #-1024,d2
  671.  
  672. ; move.w d0,d3
  673. ; move.w d2,d5
  674. ;
  675. ; muls YCOS,d0
  676. ; muls YSIN,d2
  677. ; sub.l d2,d0
  678. ; add.l d0,d0
  679. ; swap d0
  680. ; asr.l #6,d0    ; new x*512
  681. ; 
  682. ; muls YSIN,d3
  683. ; muls YCOS,d5
  684. ; add.l d5,d3
  685. ; add.l d3,d3
  686. ; swap d3
  687. ; move.w d3,d2    ; new z
  688. ;
  689. ; move.w d1,d4
  690. ; move.w d2,d5
  691. ; muls XCOS,d1
  692. ; muls XSIN,d2
  693. ; sub.l d2,d1
  694. ; add.l d1,d1
  695. ; swap d1
  696. ; 
  697. ; muls XSIN,d4
  698. ; muls XCOS,d5
  699. ; add.l d5,d4
  700. ; add.l d4,d4
  701. ; swap d4
  702. ; move.w d4,d2    ; new z
  703.  
  704.  move.w d0,d3
  705.  move.w d2,d5
  706.  
  707.  muls YCOS2,d0
  708.  muls YSIN2,d2
  709.  sub.l d2,d0
  710.  add.l d0,d0
  711.  swap d0
  712.  
  713.  muls YSIN2,d3
  714.  muls YCOS2,d5
  715.  add.l d5,d3    
  716.  add.l d3,d3
  717.  swap d3
  718.  move.w d3,d2    ; new z
  719.  
  720.  move.w d1,d4
  721.  move.w d2,d5
  722.  muls XCOS2,d1
  723.  muls XSIN2,d2
  724.  sub.l d2,d1
  725.  add.l d1,d1
  726.  swap d1
  727. ; asr.l #6,d1    ; new y*512
  728.  
  729.  muls XSIN2,d4
  730.  muls XCOS2,d5
  731.  add.l d5,d4
  732.  add.l d4,d4
  733.  swap d4
  734.  
  735.  move.w d0,x2b
  736.  move.w d1,y2b
  737.  move.w d4,z2b
  738.  
  739. ; Now the specular highlight efforts....
  740.  
  741.  move.l #SPECBRIGHTS,a2
  742.  move.l #NORMVECTS,a1
  743.  
  744.  move.l #SHADOWPTS,a5
  745.  
  746.  move.w num_points,d7
  747.  subq #1,d7
  748.  
  749. CALCSPECBRIGHTS:
  750.  
  751.  move.w (a1)+,x1
  752.  move.w (a1)+,y1
  753.  move.w (a1)+,z1
  754.  
  755.  move.w x2b,d0
  756.  move.l (a5)+,d1
  757.  asr.l #8,d1
  758.  asr.l #1,d1
  759.  sub.w d1,d0
  760.  move.w d0,x2
  761.  move.w y2b,d0
  762.  move.l (a5)+,d1
  763.  asr.l #8,d1
  764.  asr.l #1,d1
  765.  sub.w d1,d0
  766.  move.w d0,y2
  767.  move.w z2b,d0
  768.  sub.w (a5)+,d0
  769.  move.w d0,z2
  770.  
  771.  move.w #0,d6
  772.  
  773.  cmp.w #-1,x1
  774.  bne.s .notnot
  775.  cmp.w #-1,y1
  776.  bne.s .notnot
  777.  cmp.w #-1,z1
  778.  beq .dontbother
  779. .notnot: 
  780.  
  781.  move.w x2,d2
  782.  muls d2,d2
  783.  move.w y2,d1
  784.  muls d1,d1
  785.  add.l d1,d2
  786.  move.w z2,d1
  787.  muls d1,d1
  788.  add.l d1,d2
  789.  
  790.  jsr CALCSQROOT
  791.  
  792.  move.w d2,l2
  793.  
  794.  move.w y1,d0
  795.  muls z2,d0
  796.  move.w y2,d1
  797.  muls z1,d1
  798.  sub.l d1,d0    ; x4
  799.  
  800.  move.w z1,d1
  801.  muls x2,d1
  802.  move.w z2,d2
  803.  muls x1,d2
  804.  sub.l d2,d1    ; y4
  805.  
  806.  move.w x1,d2
  807.  muls y2,d2
  808.  move.w x2,d3
  809.  muls y1,d3
  810.  sub.l d3,d2    ; z4
  811.  
  812.  asr.l #8,d0
  813.  asr.l #8,d1
  814.  asr.l #8,d2
  815.  asr.l #2,d0
  816.  asr.l #2,d1
  817.  asr.l #2,d2
  818.  
  819.  move.w x1,d3
  820.  muls d1,d3
  821.  move.w y1,d4
  822.  muls d0,d4
  823.  sub.l d4,d3
  824.  asr.l #8,d3
  825.  asr.l #1,d3
  826.  add.w z2,d3
  827.  
  828.  muls #1024,d3
  829.  divs l2,d3
  830.  
  831.  move.w d3,z3
  832.  
  833.  move.w y1,d3
  834.  muls d2,d3
  835.  move.w z1,d4
  836.  muls d1,d4
  837.  sub.l d4,d3
  838.  asr.l #8,d3
  839.  asr.l #1,d3
  840.  add.w x2,d3
  841.  muls #1024,d3
  842.  divs l2,d3
  843.  
  844.  move.w d3,x3
  845.  
  846.  move.w z1,d3
  847.  muls d0,d3
  848.  move.w x1,d4
  849.  muls d2,d4
  850.  sub.l d4,d3
  851.  asr.l #8,d3
  852.  asr.l #1,d3
  853.  add.w y2,d3
  854.  muls #1024,d3
  855.  divs l2,d3
  856.  
  857.  move.w d3,y3
  858.  
  859.  move.w z3,d3
  860.  asr.w #4,d3
  861.  add.w #128,d3
  862.  
  863.  move.b d3,d6
  864.  lsl.w #8,d6
  865.  
  866.  move.w x3,d3
  867.  asr.w #4,d3
  868.  add.w #128,d3
  869.  move.b d3,d6
  870.   
  871.  tst.w y3
  872.  blt.s .okpos
  873.  
  874.  move.w x3,d1
  875.  asr.w #4,d1
  876.  move.w z3,d2
  877.  asr.w #4,d2
  878.  
  879.  muls d1,d1
  880.  muls d2,d2
  881.  add.l d1,d2
  882.  jsr CALCSQROOT
  883.  tst.w d2
  884.  beq.s .okpos
  885.  
  886.  move.w d2,d3
  887.  neg.w d3
  888.  add.w #127,d3
  889.  
  890.  move.w z3,d4
  891.  muls d3,d4
  892.  divs d2,d4
  893.  asr.w #4,d4
  894.  add.w #128,d4
  895.  move.b d4,d6
  896.  lsl.w #8,d6
  897.  
  898.  move.w x3,d4
  899.  muls d3,d4
  900.  divs d2,d4
  901.  asr.w #4,d4
  902.  add.w #128,d4
  903.  move.b d4,d6
  904.  
  905. ; neg.w y3
  906.  
  907. .okpos
  908.   
  909. ; add.w y2,d3
  910. ;
  911. ; move.w d3,d6
  912. ;
  913. ; asr.w #4,d6
  914. ; 
  915. ; add.w #30,d6
  916. ; 
  917. ; ble.s .okokok
  918. ; 
  919. ; moveq #0,d6
  920. ; 
  921. ;.okokok:
  922. ; add.w #$1c,d6
  923. ;
  924. ; cmp.w #1,d6
  925. ; bge.s .okokokok
  926. ; moveq #1,d6
  927. ;.okokokok:
  928.  
  929. ; 
  930. ; cmp.w #28,d6
  931. ; blt.s .okbig
  932. ; move.w #28,d6
  933. ;.okbig
  934.  
  935. .dontbother:
  936.  move.w d6,(a2)+
  937.  move.w y3,(a2)+
  938.  
  939.  dbra d7,CALCSPECBRIGHTS
  940.  
  941.  
  942.  
  943.  
  944. * NOW THE POINTS FOR ON-SCREENNESS
  945.  
  946.  move.l #ROTATEDPTS,a2
  947.  move.l PtsPtr,a0
  948.  move.w num_points,d7
  949.  subq #1,d7
  950.  
  951. ROTPTLOP:
  952.  
  953.  move.w (a0)+,d0
  954.  move.w d0,d3
  955.  move.w (a0)+,d1
  956.  move.w (a0)+,d2
  957.  move.w d2,d5
  958.  
  959.  
  960.  
  961.  muls YCOS,d0
  962.  muls YSIN,d2
  963.  sub.l d2,d0
  964.  asr.l #6,d0    ; new x*512
  965.  
  966.  muls YSIN,d3
  967.  muls YCOS,d5
  968.  add.l d5,d3
  969.  add.l d3,d3
  970.  swap d3
  971.  move.w d3,d2    ; new z
  972.  
  973.  move.w d1,d4
  974.  move.w d2,d5
  975.  muls XCOS,d1
  976.  muls XSIN,d2
  977.  sub.l d2,d1
  978.  asr.l #6,d1    ; new y*512
  979.  
  980.  muls XSIN,d4
  981.  muls XCOS,d5
  982.  add.l d5,d4
  983.  add.l d4,d4
  984.  swap d4
  985.  move.w d4,d2    ; new z
  986.  
  987.  ext.l d2
  988.  
  989.  move.w XOFF,d5
  990.  ext.l d5
  991.  asl.l #8,d5
  992.  add.l d5,d5
  993.  add.l d5,d0
  994.  
  995.  move.l d0,(a2)+
  996.  move.l d1,(a2)+
  997.  move.w d2,(a2)+
  998.  
  999.  dbra d7,ROTPTLOP
  1000.  
  1001. ; Now convert the rotated points to the screen:
  1002.  
  1003.  move.l #ROTATEDPTS,a0
  1004.  move.l #ONSCREENPTS,a2
  1005.  move.w num_points,d7
  1006.  subq #1,d7
  1007. CONVERTTOSCREEN:
  1008.  move.l (a0)+,d0
  1009.  move.l (a0)+,d1
  1010.  move.w (a0)+,d2
  1011.  add.w ZOFF,d2
  1012.  ext.l d2
  1013.  
  1014.  move.l d0,d3
  1015.  asr.l #1,d3
  1016.  add.l d3,d0 
  1017.  move.l d1,d3
  1018.  asr.l #1,d3
  1019.  add.l d3,d1 
  1020.  
  1021.  divs d2,d0
  1022.  divs d2,d1
  1023.  add.w #160*4,d0
  1024.  add.w #128*4,d1
  1025.  move.w d0,(a2)+
  1026.  move.w d1,(a2)+
  1027.  dbra d7,CONVERTTOSCREEN
  1028.  
  1029.  move.w #254,HIGHPOLY
  1030.  
  1031.  move.l LinesPtr,a1
  1032.  move.l #PartBuffer,a0
  1033.  move.l a0,a2
  1034.  move.w #15,d0
  1035. clrpartbuffSHAD:
  1036.  move.l #$80000001,(a2)+
  1037.  move.l #$80000001,(a2)+
  1038.  move.l #$80000001,(a2)+
  1039.  move.l #$80000001,(a2)+
  1040.  dbra d0,clrpartbuffSHAD
  1041.  
  1042.  move.l #SHADOWPTS,a2
  1043.  move.l OBJONOFF,d5
  1044.  
  1045.  move.w #0,d4
  1046.  tst.w SORTIT
  1047.  bne.s PutInPartsSHAD
  1048.  
  1049.  
  1050. putinunsortedSHAD:
  1051.  move.w (a1)+,d7
  1052.  blt doneallpartsSHAD
  1053.  lsr.l #1,d5
  1054.  bcs.s .yeson
  1055.  addq #2,a1
  1056.  bra putinunsortedSHAD
  1057. .yeson:
  1058.  
  1059.  move.w (a1)+,d6
  1060.  move.l #0,(a0)+
  1061.  move.w d7,(a0)+
  1062.  move.w d4,(a0)+
  1063.  addq #1,d4
  1064.  bra putinunsortedSHAD
  1065.  
  1066. PutInPartsSHAD
  1067.  move.w (a1)+,d7
  1068.  blt doneallpartsSHAD
  1069.  
  1070.  lsr.l #1,d5
  1071.  bcs.s .yeson
  1072.  addq #2,a1
  1073.  bra PutInPartsSHAD
  1074. .yeson:
  1075.  
  1076.  move.w (a1)+,d6
  1077.  move.l 4(a2,d6.w),d0
  1078.  add.l #200000,d0
  1079.  
  1080.  move.l #PartBuffer-8,a0
  1081.  
  1082. stillfrontSHAD
  1083.  addq #8,a0
  1084.  cmp.l (a0),d0
  1085.  blt stillfrontSHAD
  1086.  move.l #endparttab-8,a5
  1087. domoreshiftSHAD:
  1088.  move.l -8(a5),(a5)
  1089.  move.l -4(a5),4(a5)
  1090.  subq #8,a5
  1091.  cmp.l a0,a5
  1092.  bgt.s domoreshiftSHAD
  1093.  
  1094.  move.l d0,(a0)
  1095.  move.w d7,4(a0)
  1096.  move.w d4,6(a0)
  1097.  addq #1,d4
  1098.  bra PutInPartsSHAD
  1099.  
  1100. doneallpartsSHAD:
  1101.  
  1102.  move.l #PartBuffer,a0
  1103.  
  1104. PartLoopSHAD
  1105.  move.l (a0)+,d7
  1106.  blt nomorepartsSHAD
  1107.  
  1108.  move.l #SAVEHIGHS,a2
  1109.  move.w 2(a0),d0
  1110.  move.w HIGHPOLY,(a2,d0.w*2)
  1111.  
  1112.  moveq #0,d0
  1113.  move.w (a0),d0
  1114.  addq #4,a0
  1115.  add.l START_OF_OBJECT,d0
  1116.  move.l d0,a1
  1117.  
  1118. polylooSHAD:
  1119.  
  1120.  tst.w (a1)
  1121.  blt.s nomorepolysSHAD
  1122.  movem.l a0/a1/d7,-(a7)
  1123.  bsr doaSHADEpoly
  1124.  movem.l (a7)+,a0/a1/d7
  1125.  
  1126.  move.w (a1),d0
  1127.  lea 18(a1,d0.w*4),a1
  1128.  
  1129.  bra.s polylooSHAD
  1130. nomorepolysSHAD:
  1131.  sub.w #1,HIGHPOLY
  1132.  bra PartLoopSHAD
  1133. nomorepartsSHAD:
  1134.  
  1135. *******************************************
  1136. * Now the on-screen bit...
  1137. *******************************************
  1138.  
  1139.  move.l LinesPtr,a1
  1140.  move.l #PartBuffer,a0
  1141.  move.l a0,a2
  1142.  move.w #15,d0
  1143. clrpartbuff:
  1144.  move.l #$80000001,(a2)+
  1145.  move.l #$80000001,(a2)+
  1146.  move.l #$80000001,(a2)+
  1147.  move.l #$80000001,(a2)+
  1148.  dbra d0,clrpartbuff
  1149.  
  1150.  move.l #ROTATEDPTS,a2
  1151.  move.l OBJONOFF,d5
  1152.  
  1153.  moveq #0,d4
  1154.  
  1155.  tst.w SORTIT
  1156.  bne.s PutInParts
  1157.  
  1158. putinunsorted:
  1159.  move.w (a1)+,d7
  1160.  blt doneallparts
  1161.  lsr.l #1,d5
  1162.  bcs.s .yeson
  1163.  addq #2,a1
  1164.  bra putinunsorted
  1165. .yeson:
  1166.  
  1167.  move.w (a1)+,d6
  1168.  move.l #0,(a0)+
  1169.  move.w d7,(a0)+
  1170.  move.w d4,(a0)+
  1171.  
  1172.  addq #1,d4
  1173.  bra putinunsorted
  1174.  
  1175. PutInParts
  1176.  move.w (a1)+,d7
  1177.  blt doneallparts
  1178.  
  1179.  lsr.l #1,d5
  1180.  bcs.s .yeson
  1181.  addq #2,a1
  1182.  bra PutInParts
  1183. .yeson:
  1184.  
  1185.  move.w (a1)+,d6
  1186.  move.l (a2,d6.w),d0
  1187.  asr.l #8,d0
  1188.  asr.l #2,d0
  1189.  muls d0,d0
  1190.  move.l 4(a2,d6.w),d2
  1191.  asr.l #8,d2
  1192.  asr.l #2,d2
  1193.  muls d2,d2
  1194.  add.l d2,d0 
  1195.  move.w 8(a2,d6.w),d2
  1196.  add.w #1024,d2
  1197.  muls d2,d2
  1198.  add.l d2,d0
  1199.  
  1200.  move.l #PartBuffer-8,a0
  1201.  
  1202. stillfront
  1203.  addq #8,a0
  1204.  cmp.l (a0),d0
  1205.  blt stillfront
  1206.  move.l #endparttab-8,a5
  1207. domoreshift:
  1208.  move.l -8(a5),(a5)
  1209.  move.l -4(a5),4(a5)
  1210.  subq #8,a5
  1211.  cmp.l a0,a5
  1212.  bgt.s domoreshift
  1213.  
  1214.  move.l d0,(a0)
  1215.  move.w d7,4(a0)
  1216.  move.w d4,6(a0)
  1217.  addq #1,d4
  1218.  bra PutInParts
  1219.  
  1220. doneallparts:
  1221.  
  1222.  move.l #PartBuffer,a0
  1223.  
  1224. PartLoop
  1225.  move.l (a0)+,d7
  1226.  blt nomoreparts
  1227.  
  1228.  move.l #SAVEHIGHS,a2
  1229.  move.w 2(a0),d0
  1230.  move.w (a2,d0.w*2),HIGHPOLY
  1231.  
  1232.  moveq #0,d0
  1233.  move.w (a0),d0
  1234.  addq #4,a0
  1235.  add.l START_OF_OBJECT,d0
  1236.  move.l d0,a1
  1237.  
  1238. polyloo:
  1239.  
  1240.  tst.w (a1)
  1241.  blt.s nomorepolys
  1242.  movem.l a0/a1/d7,-(a7)
  1243.  bsr doapoly
  1244.  movem.l (a7)+,a0/a1/d7
  1245.  
  1246.  move.w (a1),d0
  1247.  lea 18(a1,d0.w*4),a1
  1248.  
  1249.  bra.s polyloo
  1250. nomorepolys:
  1251.  sub.w #1,HIGHPOLY
  1252.  bra PartLoop
  1253. nomoreparts:
  1254.  
  1255. NOPOLYS:
  1256.  
  1257. ; btst #6,$bfe001
  1258. ; beq.s .SHOWSHADOW
  1259.  
  1260.  ifne MOTIONBLUR
  1261.  
  1262.  move.l FASTBUFFER,d0
  1263.  cmp.l #fasty,d0
  1264.  bne .SHOWNSCRN
  1265.  
  1266.  move.l #fasty,a0
  1267.  move.l #fasty2,a1
  1268.  add.l #40*320+64,a0
  1269.  add.l #40*320+64,a1
  1270.  move.l #BLUR,a2
  1271.  move.w #175,d0
  1272.  moveq #0,d6
  1273. .blurchunk:
  1274.  move.w #(192/4)-1,d1
  1275. .blurline:
  1276.  
  1277.  move.l (a0),d2
  1278.  move.l d2,d4
  1279.  swap d4
  1280.  move.l (a1)+,d3
  1281.  move.l d3,d5
  1282.  swap d5
  1283.   
  1284.  lsr.w #8,d5
  1285.  move.b d5,d4
  1286.  move.w d4,d6
  1287.  move.b (a2,d6.l),d7
  1288.  
  1289.  lsl.l #8,d7
  1290.  lsl.l #8,d2
  1291.  lsl.l #8,d3
  1292.  move.l d2,d4
  1293.  move.l d3,d5
  1294.  swap d4
  1295.  swap d5
  1296.  lsr.w #8,d5
  1297.  move.b d5,d4
  1298.  move.w d4,d6
  1299.  move.b (a2,d6.l),d7
  1300.  
  1301.  lsl.l #8,d7
  1302.  lsl.l #8,d2
  1303.  lsl.l #8,d3
  1304.  move.l d2,d4
  1305.  move.l d3,d5
  1306.  swap d4
  1307.  swap d5
  1308.  lsr.l #8,d5
  1309.  move.b d5,d4
  1310.  move.w d4,d6
  1311.  move.b (a2,d6.l),d7
  1312.  
  1313.  lsl.l #8,d7
  1314.  lsl.l #8,d2
  1315.  lsl.l #8,d3
  1316.  move.l d2,d4
  1317.  move.l d3,d5
  1318.  swap d4
  1319.  swap d5
  1320.  lsr.l #8,d5
  1321.  move.b d5,d4
  1322.  move.w d4,d6
  1323.  move.b (a2,d6.l),d7
  1324.  
  1325.  move.l d7,(a0)+
  1326.  
  1327.  dbra d1,.blurline
  1328.  
  1329.  add.w #(320-192),a1
  1330.  add.w #(320-192),a0
  1331.  dbra d0,.blurchunk
  1332.  
  1333.  endc
  1334.  
  1335.  ifeq LARGESCREEN
  1336.  
  1337.  move.l FASTBUFFER,a0 
  1338.  add.l #40*320+64,a0
  1339.  move.l #RAWSCRN,a1
  1340.  add.l #40*40+8,a1
  1341.  move.l #(24)-1,d0
  1342.  move.l #175,d1
  1343.  move.w #128,d2
  1344.  move.w #16,d3
  1345.  moveq #0,d4
  1346.  moveq #0,d5
  1347.  jsr CHUNKYTOPLANAR 
  1348. ; jsr    _c2p8_go
  1349.  
  1350.  endc
  1351.  
  1352.  ifne LARGESCREEN
  1353.  
  1354. ; move.l FASTBUFFER,a0 
  1355. ; move.l #RAWSCRN,a1
  1356. ; move.l #39,d0
  1357. ; move.l #255,d1
  1358. ; move.w #0,d2
  1359. ; move.w #0,d3
  1360. ; moveq #0,d4
  1361. ; moveq #0,d5
  1362. ; jsr CHUNKYTOPLANAR 
  1363.  
  1364.         lea    mybltnode(pc),a2    ; a2->mybltnode
  1365.         move.l    sysbase(pc),a6        ; a6->SysBase
  1366.         move.l    signals2-mybltnode(a2),d0
  1367.         jsr    _LVOWait(a6)
  1368.         
  1369.         lea    mybltnode(pc),a2
  1370.         move.l    signals2-mybltnode(a2),d0
  1371.         move.l    d0,d1
  1372.         move.l    sysbase(pc),a6    ; a6->SysBase
  1373.         jsr    _LVOSetSignal(a6)
  1374.  
  1375.     move.l #backupptr,a0
  1376.     
  1377.     move.l RAWPTR,d0
  1378.     move.l d0,(a0)+
  1379.     add.l #10240,d0
  1380.     move.l d0,(a0)+
  1381.     add.l #10240,d0
  1382.     move.l d0,(a0)+
  1383.     add.l #10240,d0
  1384.     move.l d0,(a0)+
  1385.     add.l #10240,d0
  1386.     move.l d0,(a0)+
  1387.     add.l #10240,d0
  1388.     move.l d0,(a0)+
  1389.     add.l #10240,d0
  1390.     move.l d0,(a0)+
  1391.     add.l #10240,d0
  1392.     move.l d0,(a0)+
  1393.     tst.b DONEANYTHING
  1394.     beq.s .NOTDONE
  1395.  
  1396.  move.l RAWPTR,d0
  1397.  move.l RAWPTR2,RAWPTR
  1398.  move.l d0,RAWPTR2
  1399.  
  1400. .NOTDONE:
  1401.  
  1402.  jsr    _c2p8_go
  1403.  
  1404.  
  1405.     move.b DONEANYTHING,lastDONEANYTHING
  1406.     move.b #0,DONEANYTHING
  1407.  
  1408.     move.l MyScreen,a0
  1409.     lea sc_BitMap(a0),a0
  1410.     lea bm_Planes(a0),a0
  1411.  
  1412.     move.l RAWPTR,d0
  1413.     move.l d0,(a0)+
  1414.     add.l #10240,d0
  1415.     move.l d0,(a0)+
  1416.     add.l #10240,d0
  1417.     move.l d0,(a0)+
  1418.     add.l #10240,d0
  1419.     move.l d0,(a0)+
  1420.     add.l #10240,d0
  1421.     move.l d0,(a0)+
  1422.     add.l #10240,d0
  1423.     move.l d0,(a0)+
  1424.     add.l #10240,d0
  1425.     move.l d0,(a0)+
  1426.     add.l #10240,d0
  1427.     move.l d0,(a0)+
  1428.     
  1429.     move.l _IntuitionBase,a6
  1430.     jsr _LVORemakeDisplay(a6)
  1431.     
  1432.     move.l    _GfxBase,a6
  1433.     jsr    _LVOWaitTOF(a6)
  1434.  
  1435.  endc
  1436.  
  1437.  bra SHOWNSCRN
  1438.  
  1439. DONEANYTHING: dc.w 0
  1440. lastDONEANYTHING: dc.w 0
  1441.  
  1442. SHOWSHADOW
  1443.  
  1444.  move.l #SHADOWBUFFER,a0
  1445.  add.l #40*256,a0
  1446.  move.l #RAWSCRN,a1
  1447.  add.l #40*40,a1
  1448.  move.l #(256/8)-1,d0
  1449.  move.l #175,d1
  1450.  move.w #0,d2
  1451.  move.w #8,d3
  1452.  moveq #0,d4
  1453.  moveq #0,d5
  1454.  jsr CHUNKYTOPLANAR 
  1455.  
  1456. SHOWNSCRN:
  1457.  
  1458.  ifne MOTIONBLUR
  1459.  
  1460.  move.l #fasty2,d1
  1461.  move.l FASTBUFFER,d0
  1462.  cmp.l #fasty,d0
  1463.  beq.s .ok2
  1464.  move.l #fasty,d1
  1465. .ok2:
  1466.  move.l d1,FASTBUFFER 
  1467.  
  1468.  endc
  1469.  
  1470.  move.l FASTBUFFER,a0
  1471.  move.l #NEBBIE,a1
  1472.  add.l #40*320+64,a0
  1473.  move.l #BLUR,a2
  1474.  moveq #0,d6
  1475.  
  1476.  move.w #175,d0
  1477. clrchunk:
  1478.  
  1479.  
  1480.  REPT 192/4
  1481.  move.l (a1)+,(a0)+
  1482.  endr
  1483.  
  1484.  add.w #(320-192),a0
  1485.  dbra d0,clrchunk
  1486.  
  1487.  move.l #SHADOWBUFFER,a0
  1488.  move.l #-1,d1
  1489.  move.l #-1,d2
  1490.  move.w #15,d0
  1491. ;clrshad:
  1492. ; move.w #15,d5
  1493. ;innner
  1494. ; move.l d2,(a0)+
  1495. ; move.l d2,(a0)+
  1496. ; move.l d2,(a0)+
  1497. ; move.l d2,(a0)+
  1498. ; move.l d1,(a0)+
  1499. ; move.l d1,(a0)+
  1500. ; move.l d1,(a0)+
  1501. ; move.l d1,(a0)+
  1502. ; move.l d2,(a0)+
  1503. ; move.l d2,(a0)+
  1504. ; move.l d2,(a0)+
  1505. ; move.l d2,(a0)+
  1506. ; move.l d1,(a0)+
  1507. ; move.l d1,(a0)+
  1508. ; move.l d1,(a0)+
  1509. ; move.l d1,(a0)+
  1510. ; move.l d2,(a0)+
  1511. ; move.l d2,(a0)+
  1512. ; move.l d2,(a0)+
  1513. ; move.l d2,(a0)+
  1514. ; move.l d1,(a0)+
  1515. ; move.l d1,(a0)+
  1516. ; move.l d1,(a0)+
  1517. ; move.l d1,(a0)+
  1518. ; move.l d2,(a0)+
  1519. ; move.l d2,(a0)+
  1520. ; move.l d2,(a0)+
  1521. ; move.l d2,(a0)+
  1522. ; move.l d1,(a0)+
  1523. ; move.l d1,(a0)+
  1524. ; move.l d1,(a0)+
  1525. ; move.l d1,(a0)+
  1526. ; move.l d2,(a0)+
  1527. ; move.l d2,(a0)+
  1528. ; move.l d2,(a0)+
  1529. ; move.l d2,(a0)+
  1530. ; move.l d1,(a0)+
  1531. ; move.l d1,(a0)+
  1532. ; move.l d1,(a0)+
  1533. ; move.l d1,(a0)+
  1534. ; move.l d2,(a0)+
  1535. ; move.l d2,(a0)+
  1536. ; move.l d2,(a0)+
  1537. ; move.l d2,(a0)+
  1538. ; move.l d1,(a0)+
  1539. ; move.l d1,(a0)+
  1540. ; move.l d1,(a0)+
  1541. ; move.l d1,(a0)+
  1542. ; move.l d2,(a0)+
  1543. ; move.l d2,(a0)+
  1544. ; move.l d2,(a0)+
  1545. ; move.l d2,(a0)+
  1546. ; move.l d1,(a0)+
  1547. ; move.l d1,(a0)+
  1548. ; move.l d1,(a0)+
  1549. ; move.l d1,(a0)+
  1550. ; move.l d2,(a0)+
  1551. ; move.l d2,(a0)+
  1552. ; move.l d2,(a0)+
  1553. ; move.l d2,(a0)+
  1554. ; move.l d1,(a0)+
  1555. ; move.l d1,(a0)+
  1556. ; move.l d1,(a0)+
  1557. ; move.l d1,(a0)+
  1558. ; dbra d5,innner
  1559. ; exg d1,d2
  1560. ;
  1561. ; dbra d0,clrshad
  1562.  
  1563.  
  1564.  
  1565.     btst #7,$bfe001
  1566.     beq.s exit_closescr
  1567.  
  1568.  
  1569.     add.l #$8000,lmxoff
  1570.     cmp.l #40*65536,lmxoff
  1571.     blt.s .oksm
  1572.     sub.l #40*65536,lmxoff    
  1573. .oksm
  1574.  
  1575.     bra loop
  1576.     
  1577. backupptr: ds.l 8
  1578.     
  1579. lmxoff: dc.l 0
  1580.  
  1581. exit_closescr
  1582.  
  1583.     move.l    4.w,a6
  1584.     move.l    SIG2,d0
  1585.     jsr    _LVOFreeSignal(a6)
  1586. nosig2:
  1587.     move.l    4.w,a6
  1588.     move.l    SIG1,d0
  1589.     jsr    _LVOFreeSignal(a6)
  1590. nosig1:
  1591.     move.l    CHIPBUF2,a1
  1592.     move.l    #scrwid*scrht/8,d0
  1593.     move.l    4.w,a6
  1594.     jsr    _LVOFreeMem(a6)
  1595. nochipbuf2:
  1596.     move.l    CHIPBUF1,a1
  1597.     move.l    #scrwid*scrht/8,d0
  1598.     move.l    4.w,a6
  1599.     jsr    _LVOFreeMem(a6)
  1600. nochipbuf1:
  1601.     move.l    CHUNKYCOMPARE,a1
  1602.     move.l    #scrwid*scrht/8,d0
  1603.     move.l    4.w,a6
  1604.     jsr    _LVOFreeMem(a6)
  1605. nochunkycomp:
  1606.  
  1607.     move.l    MyScreen(pc),a0
  1608.     CALLINT CloseScreen
  1609.  
  1610. exit_closeall
  1611.     move.l    _GfxBase(pc),a1
  1612.     CALLEXEC CloseLibrary
  1613.  
  1614. exit_closeint
  1615.     move.l    _IntuitionBase(pc),a1
  1616.     CALLEXEC CloseLibrary
  1617.  
  1618. exit_false
  1619.     move.l    #0,d0                return code
  1620.     rts
  1621.  
  1622.     include "work:charles/cpublitter/c2p8.s"
  1623.  
  1624. TESTTAB: ds.w 30
  1625.  
  1626. ************************************************
  1627. * SUBROUTINES HERE. ****************************
  1628. ************************************************
  1629.  
  1630.  
  1631. **********************************************************
  1632.  
  1633. * the definition of the screen - note that in assembler you
  1634. * MUST get the sizes of these fields correct, by consulting either
  1635. * the RKM or the header files
  1636.  
  1637.  
  1638. MyNewScreen    dc.w    0,0        left, top
  1639.         dc.w    320,256        width, height
  1640.         dc.w    8        depth
  1641.         dc.b    0,1        pens
  1642.         dc.w    0        viewmodes
  1643.         dc.w    CUSTOMSCREEN    type
  1644.         dc.l    MyFont        font
  1645.         dc.l    screen_title    title
  1646.         dc.l    0        gadgets
  1647.         dc.l    0        bitmap
  1648.  
  1649. * my font definition
  1650. MyFont    dc.l    font_name
  1651.     dc.w    TOPAZ_SIXTY
  1652.     dc.b    FS_NORMAL
  1653.     dc.b    FPF_ROMFONT
  1654.  
  1655. * the variables
  1656. _IntuitionBase    dc.l    0        Intuition lib pointer
  1657. _GfxBase    dc.l    0        graphics lib pointer
  1658. MyScreen        dc.l    0
  1659. MyWindow        dc.l    0
  1660. MyNewWindow    ds.b    nw_SIZE        a buffer
  1661.  
  1662.  
  1663. * some strings
  1664. int_name    INTNAME
  1665. graf_name    GRAFNAME
  1666. hello_message    dc.b    'Hello World'
  1667.  
  1668. * these are C strings, so have to be null terminated
  1669. screen_title    dc.b    'My Own Screen',0
  1670. font_name    dc.b    'topaz.font',0
  1671. window_title    dc.b    'A Simple Window',0
  1672.  
  1673.  even
  1674.  
  1675.  
  1676. doaSHADEpoly:
  1677.  
  1678.  move.w (a1)+,d7    ; sides to draw
  1679.  addq #2,a1        ; avoid holes
  1680.  
  1681.  move.l #SHADOWPTS,a3
  1682.  
  1683.  move.w (a1),d0
  1684.  move.w 4(a1),d1
  1685.  move.w 8(a1),d2
  1686.  muls #10,d0
  1687.  muls #10,d1
  1688.  muls #10,d2
  1689.  move.w 8(a3,d0.w),d3
  1690.  move.w 8(a3,d1.w),d4
  1691.  move.w 8(a3,d2.w),d5
  1692.  move.l (a3,d0.w),d0
  1693.  move.l (a3,d1.w),d1
  1694.  move.l (a3,d2.w),d2
  1695.  asr.l #8,d0
  1696.  asr.l #8,d1
  1697.  asr.l #8,d2
  1698.  asr.l #1,d0
  1699.  asr.l #1,d1
  1700.  asr.l #1,d2
  1701.  
  1702.  sub.w d1,d0
  1703.  sub.w d1,d2
  1704.  sub.w d4,d3
  1705.  sub.w d4,d5
  1706.  muls d3,d2
  1707.  muls d5,d0
  1708.  sub.l d0,d2
  1709.  bge SHADpolybehind
  1710.  
  1711.  
  1712.  
  1713.  move.w #20000,d4    ; top
  1714.  move.w #-20000,d5    ; bottom
  1715.  move.l #UVCOORDS,a4
  1716.  
  1717. putinlinesSHAD:
  1718.  move.w (a1),d0
  1719.  move.w 4(a1),d1
  1720.  
  1721.  moveq #0,d2
  1722.  move.b 2(a1),d2    ; one end U
  1723.  move.w d2,2(a4,d0.w*4)
  1724.  move.b 3(a1),d2    ; one end V
  1725.  move.w d2,(a4,d0.w*4)
  1726.  move.b 6(a1),d2    ; two end U
  1727.  move.w d2,2(a4,d1.w*4)
  1728.  move.b 7(a1),d2    ; two end V
  1729.  move.w d2,(a4,d1.w*4)
  1730.  
  1731.  move.w d0,d2
  1732.  muls #10,d2
  1733.  move.w 8(a3,d2.w),d2    ; Z
  1734.  
  1735.  cmp.w d2,d4
  1736.  ble.s .oktop
  1737.  move.w d2,d4
  1738. .oktop
  1739.  cmp.w d2,d5
  1740.  bge.s .okbot
  1741.  move.w d2,d5
  1742. .okbot
  1743.  
  1744.  movem.l d4/d5/d7/a1/a3/a4,-(a7)
  1745.  bsr SIMPLESHADLINE
  1746.  movem.l (a7)+,d4/d5/d7/a1/a3/a4
  1747.  addq #4,a1
  1748.  dbra d7,putinlinesSHAD
  1749.  addq #4,a1
  1750.   
  1751.  move.w (a1)+,TEXTUREADD
  1752.  
  1753.  asr.w #2,d4
  1754.  asr.w #2,d5
  1755.  add.w #128,d4
  1756.  add.w #128,d5
  1757.  move.w d4,TOPLINE
  1758.  move.w d5,BOTLINE
  1759.  
  1760. * Now draw the shadow polygon....
  1761.  
  1762.  move.l #SHADOWBUFFER,a2
  1763.  move.l #LEFTUVS,a0
  1764.  move.w TOPLINE,d0
  1765.  move.w BOTLINE,d1
  1766.  sub.w d0,d1
  1767.  asl.w #3,d0
  1768.  add.w d0,a0
  1769.  muls #(512/8),d0
  1770.  add.l d0,a2    ; pointer to screen line.
  1771.  
  1772.  subq #1,d1
  1773.  blt NOPOLYGONSHAD
  1774.  
  1775. DOAHORLINESHAD:
  1776.  swap d1
  1777.  
  1778.  move.w RIGHTUVS-LEFTUVS(a0),d0
  1779.  move.w (a0)+,d7
  1780.  sub.w d7,d0
  1781.  blt NOPOLYGONSHAD
  1782.  
  1783.  move.l a2,-(a7)
  1784.  
  1785. ; asr.w #2,d0
  1786. ; asr.w #2,d7
  1787.  lea (a2,d7.w*2),a2
  1788.  ext.l d0
  1789.  addq #1,d0
  1790.  
  1791.  move.w RIGHTUVS-LEFTUVS(a0),d7
  1792.  move.w (a0)+,d4
  1793.  swap d7
  1794.  clr.w d7
  1795.  swap d4
  1796.  clr.w d4
  1797.  sub.l d4,d7
  1798.  divs.l d0,d7
  1799.  move.l d7,a5
  1800.  
  1801.  move.w RIGHTUVS-LEFTUVS(a0),d7
  1802.  swap d7
  1803.  clr.w d7
  1804.  move.w (a0)+,d5
  1805.  swap d5
  1806.  clr.w d5
  1807.  sub.l d5,d7
  1808.  divs.l d0,d7
  1809.  move.l d7,a6
  1810.  
  1811.  move.w RIGHTUVS-LEFTUVS(a0),d7
  1812.  swap d7
  1813.  clr.w d7
  1814.  move.w (a0)+,d6
  1815.  swap d6
  1816.  clr.w d6
  1817.  sub.l d6,d7
  1818.  divs.l d0,d7
  1819.  move.l d7,a3
  1820.  
  1821.  move.l a0,-(a7)
  1822.  move.l d1,-(a7)
  1823.  move.l #TEXTURES,a0
  1824.  move.w TEXTUREADD,d7
  1825.  bge.s .okaddtes3
  1826.  and.w #$7fff,d7
  1827.  add.l #65536*4,a0
  1828. .okaddtes3:
  1829.  ext.l d7
  1830. ; add.l d7,d7
  1831.  asl.l #8,d7
  1832.  add.l d7,a0
  1833.  move.w #0,d7
  1834.  
  1835.  subq #1,d0
  1836.  
  1837. ; d0=xdist
  1838. ; d4=U  a5=DU
  1839. ; d5=V  a6=DV
  1840. ; d6=Y  a3=DY
  1841.  moveq #0,d1
  1842.  
  1843.  swap d6
  1844.  
  1845. PLOTADOT:
  1846.  
  1847. .across
  1848.  
  1849. ; swap d4
  1850. ; swap d5
  1851. ; move.w d4,d2
  1852. ; lsl.w #8,d2
  1853. ; swap d4
  1854. ; move.b d5,d2
  1855. ; add.l a5,d4
  1856. ; swap d5
  1857. ; add.l a6,d5
  1858.  
  1859.  
  1860. ; swap d6
  1861. ; move.b (a2)+,d1
  1862. ; tst.b 1(a0,d2.w*8)
  1863. ; beq.s .noplottt
  1864.  move.b d6,(a2)
  1865.  addq #2,a2
  1866.  
  1867.  dbra d0,.across
  1868.  bra.s .plaster
  1869.  
  1870. .noplottt:
  1871.  addq #1,a2
  1872.  dbra d0,.across
  1873.  
  1874. .plaster:
  1875.  
  1876.  move.l (a7)+,d1
  1877.  move.l (a7)+,a0
  1878.  move.l (a7)+,a2
  1879.  
  1880. .noline:
  1881.  add.w #512,a2
  1882.  
  1883.  swap d1
  1884.  dbra d1,DOAHORLINESHAD
  1885.  
  1886. NOPOLYGONSHAD:
  1887.  
  1888. SHADpolybehind:
  1889.  rts
  1890.  
  1891.  
  1892. ************************************************
  1893.  
  1894. LU: dc.w 0
  1895. LV: dc.w 0
  1896. RU: dc.w 0
  1897. RV: dc.w 0
  1898.     
  1899. SIMPLESHADLINE:
  1900.  move.l #SHADOWPTS,a1
  1901.  
  1902.  move.l #UVCOORDS,a2
  1903.  move.w (a2,d0.w*4),LU
  1904.  move.w 2(a2,d0.w*4),LV
  1905.  move.w (a2,d1.w*4),RU
  1906.  move.w 2(a2,d1.w*4),RV
  1907.  
  1908.  muls #10,d0
  1909.  muls #10,d1
  1910.  move.w 8(a1,d0.w),d2        ;fz
  1911.  move.w 8(a1,d1.w),d7        ;sz
  1912.  ext.l d2
  1913.  ext.l d7
  1914.  
  1915.  move.l #LEFTUVS,a3
  1916.  asr.l #2,d2
  1917.  asr.l #2,d7
  1918.  cmp.l d2,d7 
  1919.  beq .noline
  1920.  
  1921.  bgt.s .lineonright
  1922. .lineonleft:
  1923.  move.l #RIGHTUVS,a3
  1924.  exg d0,d1
  1925.  exg d2,d7
  1926.  
  1927.  move.l LU,d5
  1928.  move.l RU,LU
  1929.  move.l d5,RU
  1930.  
  1931. .lineonright:
  1932.  
  1933.  sub.w d2,d7
  1934.  add.w #128,d2
  1935.  lea (a3,d2.w*8),a3
  1936.  
  1937.  move.w d7,YDIFF
  1938.  
  1939.  move.l (a1,d0.w),d3        ;fx
  1940.  move.l (a1,d1.w),d7        ;sx
  1941.  
  1942.  asl.l #5,d3
  1943.  asl.l #5,d7
  1944.  
  1945.  sub.l d3,d7
  1946.  divs.l YDIFF-2,d7
  1947.  move.l d7,a0    ; dx
  1948.  
  1949.  move.l #ROTATEDPTS,a1
  1950.  
  1951.  move.w LU,d4
  1952.  move.w LV,d5
  1953.  move.w RU,d6
  1954.  move.w RV,d7
  1955.  
  1956.  sub.w d4,d6
  1957.  sub.w d5,d7
  1958.  swap d4
  1959.  swap d5
  1960.  clr.w d4
  1961.  clr.w d5
  1962.  swap d6
  1963.  swap d7
  1964.  clr.w d6
  1965.  clr.w d7
  1966.  
  1967.  divs.l YDIFF-2,d6
  1968.  divs.l YDIFF-2,d7
  1969.  
  1970.  move.l d6,a4
  1971.  move.l d7,a5
  1972.  
  1973. ; asl.w #4,d0
  1974. ; asl.w #4,d1
  1975.  
  1976.  move.l 4(a1,d0.w),d6
  1977.  move.l 4(a1,d1.w),d7
  1978.  asl.l #5,d6
  1979.  asl.l #5,d7
  1980.  sub.l d6,d7
  1981.  divs.l YDIFF-2,d7
  1982.  exg d7,a6
  1983.  exg d7,d6
  1984.  
  1985.  move.l YDIFF-2,d1
  1986.  subq #1,d1
  1987.  
  1988. ; d3=x a0=dx
  1989. ; d4=u a4=du
  1990. ; d5=v a5=dv
  1991. ; d7=y a6=dy
  1992. ; d1=dz
  1993.  
  1994.  move.w HIGHPOLY,d7
  1995.  
  1996.  add.l #128*65536,d3
  1997. ; add.l #128*65536,d7
  1998.  
  1999. .PUTINLINE:
  2000.  swap d3
  2001.  move.w d3,(a3)+
  2002.  swap d3
  2003.  add.l a0,d3
  2004.  swap d4
  2005.  move.w d4,(a3)+
  2006.  swap d4
  2007.  swap d5
  2008.  add.l a4,d4
  2009.  move.w d5,(a3)+
  2010.  swap d5
  2011.  add.l a5,d5
  2012. ; swap d7
  2013.  move.w d7,(a3)+
  2014. ; swap d7
  2015. ; add.l a6,d7
  2016.  dbra d1,.PUTINLINE
  2017.  
  2018. .noline:
  2019.  rts
  2020.  
  2021. BCOS: dc.w 0
  2022. BSIN: dc.w 0
  2023. ACOS: dc.w 0
  2024. ASIN: dc.w 0
  2025.  
  2026. CCOS: dc.w 0
  2027. CSIN: dc.w 0
  2028. DCOS: dc.w 0
  2029. DSIN: dc.w 0
  2030. ECOS: dc.w 0
  2031. ESIN: dc.w 0
  2032.  
  2033. FSX: dc.w 0
  2034. FSY: dc.w 0
  2035. SSX: dc.w 0
  2036. SSY: dc.w 0
  2037.  
  2038. **************************************************
  2039.  
  2040. doapoly:
  2041.  
  2042.  move.w (a1)+,d7    ; sides to draw
  2043.  addq #2,a1        ; avoid holes
  2044.  move.w 12(a1,d7.w*4),pregour
  2045.  
  2046.  move.l #ONSCREENPTS,a3
  2047.  
  2048.  move.w (a1),d0
  2049.  move.w 4(a1),d1
  2050.  move.w 8(a1),d2
  2051.  move.w 2(a3,d0.w*4),d3
  2052.  move.w 2(a3,d1.w*4),d4
  2053.  move.w 2(a3,d2.w*4),d5
  2054.  move.w (a3,d0.w*4),d0
  2055.  move.w (a3,d1.w*4),d1
  2056.  move.w (a3,d2.w*4),d2
  2057.  
  2058.  sub.w d1,d0
  2059.  sub.w d1,d2
  2060.  sub.w d4,d3
  2061.  sub.w d4,d5
  2062.  muls d3,d2
  2063.  muls d5,d0
  2064.  sub.l d0,d2
  2065.  ble polybehind
  2066.  
  2067. ; Now we must rotate the polygons coordinates in
  2068. ; the specular map so that the texturemap is vertical
  2069. ; relative to the specular map and so that bump-
  2070. ; mapping can take place unerroneously!
  2071.  
  2072. ; movem.l d0-d7/a0-a6,-(a7)
  2073.  
  2074.  move.w #0,BCOS
  2075.  move.w #128*128,ACOS
  2076.  move.w #0,BSIN
  2077.  move.w #0,ASIN
  2078.  
  2079.  moveq #0,d3
  2080.  move.b 2(a1),d3
  2081.  moveq #0,d4
  2082.  move.b 3(a1),d4
  2083.  moveq #0,d5
  2084.  move.b 2+4(a1),d5
  2085.  moveq #0,d6
  2086.  move.b 3+4(a1),d6
  2087.  
  2088.  sub.w d3,d5
  2089.  sub.w d4,d6
  2090.  
  2091.  move.w d5,d1
  2092.  move.w d6,d2
  2093.  muls d1,d1
  2094.  muls d2,d2
  2095.  add.l d1,d2
  2096.  jsr CALCSQROOT
  2097.  tst.w d2
  2098.  beq .NOROT
  2099.  
  2100.  ext.l d5
  2101.  ext.l d6
  2102.  asl.l #7,d5
  2103.  asl.l #7,d6
  2104.  divs d2,d5
  2105.  divs d2,d6
  2106.  move.w d5,ECOS
  2107.  move.w d6,ESIN
  2108.  
  2109.  move.w ECOS,d0
  2110.  asl.w #7,d0
  2111.  move.w d0,ACOS
  2112.  move.w ESIN,d0
  2113.  asl.w #7,d0
  2114.  move.w d0,ASIN
  2115.  
  2116.  move.l #SPECBRIGHTS,a3
  2117.  
  2118.  move.w (a1),d0
  2119.  moveq #0,d5
  2120.  moveq #0,d6
  2121.  move.b (a3,d0.w*4),d5
  2122.  move.b 1(a3,d0.w*4),d6
  2123.  move.w 4(a1),d0
  2124.  moveq #0,d3
  2125.  moveq #0,d4
  2126.  move.b (a3,d0.w*4),d3
  2127.  move.b 1(a3,d0.w*4),d4
  2128.  sub.w d5,d3
  2129.  sub.w d6,d4
  2130.  
  2131.  move.w d3,d1
  2132.  move.w d4,d2
  2133.  muls d1,d1
  2134.  muls d2,d2
  2135.  add.l d1,d2
  2136.  jsr CALCSQROOT
  2137.  tst.w d2
  2138.  beq .NOROT1
  2139.  
  2140.  ext.l d3
  2141.  asl.l #7,d3
  2142.  ext.l d4
  2143.  asl.l #7,d4
  2144.  divs d2,d3
  2145.  divs d2,d4
  2146.  move.w d3,BCOS
  2147.  neg.w d4
  2148.  move.w d4,BSIN
  2149.  
  2150.  move.w ECOS,d4
  2151.  move.w ESIN,d5
  2152.  move.w d4,d2
  2153.  move.w d5,d3
  2154.  muls BCOS,d2
  2155.  muls BSIN,d3
  2156.  sub.l d3,d2
  2157.  muls BSIN,d4
  2158.  muls BCOS,d5
  2159.  add.l d5,d4
  2160.  move.w d2,ACOS
  2161.  move.w d4,ASIN
  2162.  
  2163. .NOROT1
  2164.  
  2165.  move.w #0,DCOS
  2166.  move.w #0,DSIN
  2167.  move.w ECOS,d0
  2168.  asl.w #7,d0
  2169.  move.w d0,CCOS
  2170.  move.w ESIN,d0
  2171.  asl.w #7,d0
  2172.  move.w d0,CSIN
  2173.  
  2174. ; bra .NOROT
  2175.  
  2176. ; First calculate angle B
  2177.  
  2178.  move.l #NORMBRIGHTS,a3
  2179.  
  2180.  movem.l d7/a1,-(a7)
  2181.  
  2182. .findnonzer:
  2183.  
  2184.  move.w (a1),d0
  2185.  moveq #0,d5
  2186.  moveq #0,d6
  2187.  move.b (a3,d0.w*2),d5
  2188.  move.b 1(a3,d0.w*2),d6
  2189.  move.w 4(a1),d0
  2190.  moveq #0,d3
  2191.  moveq #0,d4
  2192.  move.b (a3,d0.w*2),d3
  2193.  move.b 1(a3,d0.w*2),d4
  2194.  sub.w d5,d3
  2195.  sub.w d6,d4
  2196.  bne.s .okok
  2197.  tst.w d3
  2198.  bne.s .okok
  2199.  
  2200.  addq #4,a1
  2201.  
  2202.  dbra d7,.findnonzer
  2203.  
  2204.  movem.l (a7)+,d7/a1
  2205.  bra .NOROT
  2206.  
  2207. .okok:
  2208.  
  2209.  moveq #0,d3
  2210.  move.b 2(a1),d3
  2211.  moveq #0,d4
  2212.  move.b 3(a1),d4
  2213.  moveq #0,d5
  2214.  move.b 2+4(a1),d5
  2215.  moveq #0,d6
  2216.  move.b 3+4(a1),d6
  2217.  
  2218.  sub.w d3,d5
  2219.  sub.w d4,d6
  2220.  
  2221.  move.w d5,d1
  2222.  move.w d6,d2
  2223.  muls d1,d1
  2224.  muls d2,d2
  2225.  add.l d1,d2
  2226.  jsr CALCSQROOT
  2227.  tst.w d2
  2228.  beq .NOROT8
  2229.  
  2230.  ext.l d5
  2231.  ext.l d6
  2232.  asl.l #7,d5
  2233.  asl.l #7,d6
  2234.  divs d2,d5
  2235.  divs d2,d6
  2236.  move.w d5,ECOS
  2237.  neg.w d6
  2238.  move.w d6,ESIN
  2239.  move.w ECOS,d0
  2240.  asl.w #7,d0
  2241.  move.w d0,CCOS
  2242.  move.w ESIN,d0
  2243.  asl.w #7,d0
  2244.  neg.w d0
  2245.  move.w d0,CSIN
  2246.  
  2247. .NOROT8:
  2248.  
  2249.  movem.l (a7)+,d7/a1
  2250.  
  2251.  move.w d3,d1
  2252.  move.w d4,d2
  2253.  muls d1,d1
  2254.  muls d2,d2
  2255.  add.l d1,d2
  2256.  jsr CALCSQROOT
  2257.  tst.w d2
  2258.  beq .NOROT
  2259.  
  2260.  ext.l d3
  2261.  asl.l #7,d3
  2262.  ext.l d4
  2263.  asl.l #7,d4
  2264.  divs d2,d3
  2265.  divs d2,d4
  2266.  move.w d3,DCOS
  2267.  neg.w d4
  2268.  move.w d4,DSIN
  2269.  
  2270.  move.w ECOS,d4
  2271.  move.w ESIN,d5
  2272.  move.w d4,d2
  2273.  move.w d5,d3
  2274.  muls DCOS,d2
  2275.  muls DSIN,d3
  2276.  sub.l d3,d2
  2277.  muls DSIN,d4
  2278.  muls DCOS,d5
  2279.  add.l d5,d4
  2280.  move.w d2,CCOS
  2281.  move.w d4,CSIN
  2282.  
  2283.  
  2284. .NOROT:
  2285.  
  2286. ; movem.l (a7)+,d0-d7/a0-a6
  2287.  
  2288.  move.l #ONSCREENPTS,a3
  2289.  
  2290.  move.w #20000,d4    ; top
  2291.  move.w #-20000,d5    ; bottom
  2292.  move.l #UVCOORDS,a4
  2293.  
  2294.  move.l a1,a0
  2295.  
  2296. putinlines:
  2297.  move.w (a1),d0
  2298.  move.w 4(a1),d1
  2299.  
  2300.  moveq #0,d2
  2301.  move.b 2(a1),d2    ; one end U
  2302.  move.w d2,2(a4,d0.w*4)
  2303.  move.b 3(a1),d2    ; one end V
  2304.  move.w d2,(a4,d0.w*4)
  2305.  move.b 6(a1),d2    ; two end U
  2306.  move.w d2,2(a4,d1.w*4)
  2307.  move.b 7(a1),d2    ; two end V
  2308.  move.w d2,(a4,d1.w*4)
  2309.  
  2310.  move.w 2(a3,d0.w*4),d2    ; Z
  2311.  
  2312.  cmp.w d2,d4
  2313.  ble.s .oktop
  2314.  move.w d2,d4
  2315. .oktop
  2316.  cmp.w d2,d5
  2317.  bge.s .okbot
  2318.  move.w d2,d5
  2319. .okbot
  2320.  
  2321.  movem.l a0/d4/d5/d7/a1/a3/a4,-(a7)
  2322.  jsr SIMPLECALCLINE
  2323.  movem.l (a7)+,a0/d4/d5/d7/a1/a3/a4
  2324.  addq #4,a1
  2325.  dbra d7,putinlines
  2326.  addq #4,a1 
  2327.  
  2328.  move.w (a1)+,TEXTUREADD
  2329.  
  2330.  asr.w #2,d4
  2331.  asr.w #2,d5
  2332. ; add.w #128,d4
  2333. ; add.w #128,d5
  2334.  move.w d4,TOPLINE
  2335.  move.w d5,BOTLINE
  2336.   
  2337.  move.l #SHADOWPTS,a1
  2338.  move.w (a0),d0
  2339.  move.w 4(a0),d1
  2340.  move.w 8(a0),d2
  2341.  
  2342. CHECKVALS:
  2343.  
  2344.  muls #10,d0
  2345.  muls #10,d1
  2346.  muls #10,d2
  2347.  
  2348.  lea (a1,d0.w),a0
  2349.  lea (a1,d2.w),a2
  2350.  lea (a1,d1.w),a1
  2351.  
  2352.  move.l (a0),d3
  2353.  sub.l (a1),d3
  2354.  asr.l #8,d3
  2355.  asr.l #1,d3
  2356.  move.l 4(a0),d4
  2357.  sub.l 4(a1),d4
  2358.  asr.l #8,d4
  2359.  asr.l #1,d4
  2360.  move.w 8(a0),d5
  2361.  sub.w 8(a1),d5
  2362.  
  2363.  move.w d3,d6
  2364.  muls d6,d6
  2365.  move.w d4,d7
  2366.  muls d7,d7
  2367.  add.l d7,d6
  2368.  move.w d5,d7
  2369.  muls d7,d7
  2370.  add.l d7,d6
  2371.  move.l d6,d2
  2372.  jsr CALCSQROOT
  2373.  move.w d2,LEN1
  2374.  
  2375.  move.l (a2),d0
  2376.  sub.l (a1),d0
  2377.  asr.l #8,d0
  2378.  asr.l #1,d0
  2379.  move.l 4(a2),d1
  2380.  sub.l 4(a1),d1
  2381.  asr.l #8,d1
  2382.  asr.l #1,d1
  2383.  move.w 8(a2),d2
  2384.  sub.w 8(a1),d2
  2385.  
  2386.  muls d2,d3
  2387.  muls d0,d5
  2388.  sub.l d3,d5    ; length
  2389.  muls.l #$4c,d5
  2390.  
  2391.  muls d0,d0
  2392.  muls d1,d1
  2393.  muls d2,d2
  2394.  add.l d0,d1
  2395.  add.l d1,d2
  2396.  jsr CALCSQROOT
  2397.  
  2398.  muls LEN1,d2
  2399.  bgt.s .ok
  2400.  moveq #1,d2
  2401. .ok
  2402.  
  2403.  divs.l d2,d5
  2404.  
  2405.  add.l #16,d5
  2406.  
  2407.  tst.l d5
  2408.  ble.s .okbr
  2409.  moveq #0,d5
  2410. .okbr:
  2411.  add.w #$5c,d5
  2412.  bge.s .okbr2
  2413.  moveq #0,d5
  2414. .okbr2:
  2415.  
  2416.  move.w d5,d0
  2417.  
  2418.  asl.w #8,d5
  2419.  move.w d5,BRIGHTNESS+2
  2420.  
  2421.  sub.w #$5c,d0
  2422.  asr.w #1,d0
  2423.  add.w #$5c,d0
  2424.  asl.w #8,d0
  2425.  move.w d0,BRIGHTNESS
  2426.  
  2427.  
  2428. ***********************************************
  2429. * Draw the polygon (shadowed).
  2430.  
  2431.  move.l FASTBUFFER,a2
  2432.  move.l #LEFTUVS,a0
  2433.  move.w TOPLINE,d0
  2434.  move.w BOTLINE,d1
  2435.  sub.w d0,d1
  2436.  move.w d0,d2
  2437.  muls #20,d2
  2438.  add.l d2,a0
  2439.  muls #320,d0
  2440.  add.l d0,a2    ; pointer to screen line.
  2441.  
  2442.  subq #1,d1
  2443.  blt NOPOLYGON
  2444.  
  2445.  tst.b Gouraud
  2446.  bne GOURPOLY
  2447.  
  2448. DOAHORLINE:
  2449.  swap d1
  2450.  
  2451.  move.w RIGHTUVS-LEFTUVS(a0),d0
  2452.  move.w (a0)+,d7
  2453.  asr.w #2,d0
  2454.  asr.w #2,d7
  2455.  sub.w d7,d0
  2456.  bge.s .okflibble
  2457.  
  2458.  add.w #14,a0
  2459.  add.w #320,a2
  2460.  swap d1
  2461.  dbra d1,DOAHORLINE
  2462.  bra NOPOLYGON
  2463.  
  2464. .okflibble:
  2465.  
  2466.  move.l a2,-(a7)
  2467.  
  2468.  add.w d7,a2
  2469.  ext.l d0
  2470.  addq #1,d0
  2471.  
  2472.  move.l RIGHTUVS-LEFTUVS(a0),d7
  2473.  move.l (a0)+,d2 
  2474.  sub.l d2,d7
  2475.  divs.l d0,d7
  2476.  move.l d7,a1
  2477.  
  2478.  
  2479.  
  2480.  
  2481.  
  2482.  
  2483.  
  2484.  
  2485.  
  2486.  
  2487.  
  2488.  
  2489.  
  2490.  
  2491.  
  2492.  
  2493.  
  2494.  
  2495.  move.l RIGHTUVS-LEFTUVS(a0),d7 
  2496.  move.l (a0)+,d3 
  2497.  
  2498.  
  2499.  
  2500.  
  2501.  
  2502.  
  2503.  
  2504.  
  2505.  
  2506.  
  2507.  
  2508.  
  2509.  
  2510.  
  2511.  
  2512.  
  2513.  
  2514.  
  2515.  
  2516.  
  2517.  sub.l d3,d7
  2518.  divs.l d0,d7
  2519.  move.l d7,a4
  2520.  
  2521.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2522.  move.w (a0)+,d4
  2523.  swap d7
  2524.  clr.w d7
  2525.  swap d4
  2526.  clr.w d4
  2527.  sub.l d4,d7
  2528.  divs.l d0,d7
  2529.  move.l d7,a5
  2530.  
  2531.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2532.  swap d7
  2533.  clr.w d7
  2534.  move.w (a0)+,d5
  2535.  swap d5
  2536.  clr.w d5
  2537.  sub.l d5,d7
  2538.  divs.l d0,d7
  2539.  move.l d7,a6
  2540.  
  2541.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2542.  swap d7
  2543.  clr.w d7
  2544.  move.w (a0)+,d6
  2545.  swap d6
  2546.  clr.w d6
  2547.  sub.l d6,d7
  2548.  divs.l d0,d7
  2549.  move.l d7,a3
  2550.  
  2551.  move.l a0,-(a7)
  2552.  move.l d1,-(a7)
  2553.  move.l #TEXTURES,a0
  2554.  move.w TEXTUREADD,d7
  2555.  bge.s .okaddtes3
  2556.  and.w #$7fff,d7
  2557.  add.l #65536*4,a0
  2558. .okaddtes3:
  2559.  ext.l d7
  2560. ; add.l d7,d7
  2561.  asl.l #8,d7
  2562.  add.l d7,a0
  2563.  move.w #0,d7
  2564.  
  2565.  move.l BRIGHTNESS,a6
  2566.  
  2567.  move.l a7,SAVESTACK
  2568.  move.l #SHADOWBUFFER,a7
  2569.  
  2570.  subq #1,d0
  2571.  
  2572. ; d0=xdist
  2573. ; d2=U    a1=DU
  2574. ; d3=V  a4=DV
  2575. ; d4=X  a5=DX
  2576. ; d5=Y  a6=DY
  2577. ; d6=Z  a3=DZ
  2578.  move.w HIGHPOLY,d5
  2579.  
  2580.  moveq #0,d1
  2581.  swap d6
  2582.  move.w d6,d1
  2583.  lsl.w #8,d1
  2584.  swap d4
  2585.  move.b d4,d1
  2586.  swap d4
  2587.  swap d6
  2588.  
  2589.  moveq #0,d7
  2590.  move.b (a7,d1.l),d7
  2591.  cmp.w d7,d5
  2592.  ble INTHELIGHT
  2593.  bra.s INTHEDARK
  2594.  
  2595. PENUMBRA:
  2596.  moveq #0,d1
  2597.  swap d6
  2598.  move.w d6,d1
  2599.  lsl.w #8,d1
  2600.  swap d4
  2601.  move.b d4,d1
  2602.  swap d4
  2603.  swap d6
  2604.  add.l a5,d4
  2605.  add.l a3,d6
  2606.  
  2607.      moveq #0,d7
  2608.  move.b (a7,d1.l),d7
  2609.  cmp.w d7,d5
  2610.  ble INTOLIGHT
  2611.  bra.s INTODARK
  2612.  
  2613.  
  2614. INTHEDARK:
  2615.  moveq #0,d1
  2616.  swap d6
  2617.  move.w d6,d1
  2618.  lsl.w #8,d1
  2619.  swap d4
  2620.  move.b d4,d1
  2621.  swap d4
  2622.  swap d6
  2623.  add.l a5,d4
  2624.  add.l a3,d6
  2625.  
  2626.  moveq #0,d7
  2627.  move.b (a7,d1.l),d7
  2628.  cmp.w d7,d5
  2629.  ble.s INTOPENUM
  2630. INTODARK:
  2631.  move.w #$5c00,d7
  2632.  swap d2
  2633.  move.w d2,d1
  2634.  asl.w #8,d1
  2635.  swap d3
  2636.  move.b d3,d1
  2637.  swap d2
  2638.  swap d3
  2639.  add.l a1,d2
  2640.  add.l a4,d3
  2641.  
  2642. ; move.b (a0,d1.w*4),d7
  2643. ; beq.s .noplottt
  2644.  
  2645.  move.b TEXTUREPAL-256(pc,d7.w),(a2)+
  2646.  dbra d0,INTHEDARK
  2647.  bra.s PASTAC 
  2648.  
  2649. .noplottt
  2650.  addq #1,a2
  2651.  dbra d0,INTHEDARK
  2652.  bra.s PASTAC
  2653.  
  2654. INTOPENUM:
  2655.  move.l a6,d7
  2656.  swap d7
  2657.  swap d2
  2658.  move.w d2,d1
  2659.  asl.w #8,d1
  2660.  swap d3
  2661.  move.b d3,d1
  2662.  swap d2
  2663.  swap d3
  2664.  add.l a1,d2
  2665.  add.l a4,d3
  2666.  
  2667. ; move.b (a0,d1.w*4),d7
  2668. ; beq.s .noplottt
  2669.  
  2670.  move.b TEXTUREPAL(pc,d7.w),(a2)+
  2671.  dbra d0,PENUMBRA
  2672.  bra.s PASTAC 
  2673.  
  2674. .noplottt
  2675.  addq #1,a2
  2676.  dbra d0,PENUMBRA
  2677.  bra.s PASTAC
  2678.  
  2679. INTHELIGHT:
  2680.  
  2681.  moveq #0,d1
  2682.  swap d6
  2683.  move.w d6,d1
  2684.  lsl.w #8,d1
  2685.  swap d4
  2686.  move.b d4,d1
  2687.  swap d4
  2688.  swap d6
  2689.  add.l a5,d4
  2690.  add.l a3,d6
  2691.  
  2692.  moveq #0,d7
  2693.  move.b (a7,d1.l),d7
  2694.  cmp.w d7,d5
  2695.  bgt.s INTOPENUM
  2696. INTOLIGHT:
  2697.  move.w a6,d7
  2698.  swap d2
  2699.  move.w d2,d1
  2700.  asl.w #8,d1
  2701.  swap d3
  2702.  move.b d3,d1
  2703.  swap d2
  2704.  swap d3
  2705.  add.l a1,d2
  2706.  add.l a4,d3
  2707.  
  2708. ; move.b (a0,d1.w*4),d7
  2709. ; beq.s .noplottt
  2710.  
  2711.  move.b TEXTUREPAL(pc,d7.w),(a2)+
  2712.  dbra d0,INTHELIGHT
  2713.  bra.s PASTAC 
  2714.  
  2715. .noplottt:
  2716.  addq #1,a2
  2717.  dbra d0,INTHELIGHT
  2718.  
  2719. PASTAC
  2720.  
  2721.  move.l SAVESTACK,a7
  2722.  
  2723.  move.l (a7)+,d1
  2724.  move.l (a7)+,a0
  2725.  move.l (a7)+,a2
  2726.  
  2727. .noline:
  2728.  add.w #320,a2
  2729.  
  2730.  swap d1
  2731.  dbra d1,DOAHORLINE
  2732.  
  2733. NOPOLYGON:
  2734. polybehind:
  2735.  rts
  2736.  
  2737. TEXTUREPAL:
  2738.  
  2739. SAVESTACK: dc.l 0
  2740. HIGHPOLY: dc.w 0
  2741. LEN1: dc.w 0
  2742. BRIGHTNESS: dc.l 0
  2743. TRANSTEXT: dc.w 0
  2744. AANG: dc.w 0
  2745. BANG: dc.w 0
  2746. CANG: dc.w 0
  2747. DANG: dc.w 0
  2748.  
  2749.  include "ab3:print.s"
  2750.  
  2751.  temp: dc.w 0
  2752.  
  2753. GOURPOLY: 
  2754.  
  2755. DOAHORLINEGOUR:
  2756.  swap d1
  2757.  
  2758.  ifeq SHADING
  2759.  move.w #128,16(a0)
  2760.  move.w #128,16+RIGHTUVS-LEFTUVS(a0)
  2761.  move.w #128,4+RIGHTUVS-LEFTUVS(a0)
  2762.  move.w #128,4(a0)
  2763.  endc
  2764.  
  2765.  move.w RIGHTUVS-LEFTUVS(a0),d0
  2766.  move.w (a0)+,d7
  2767.  asr.w #2,d0
  2768.  asr.w #2,d7
  2769.  sub.w d7,d0
  2770.  bge.s .okflibble
  2771.  
  2772.  add.w #18,a0
  2773.  add.w #320,a2
  2774.  swap d1
  2775.  dbra d1,DOAHORLINEGOUR
  2776.  bra NOPOLYGON
  2777.  
  2778. .okflibble:
  2779.  
  2780.  move.l a2,-(a7)
  2781.  
  2782.  add.w d7,a2
  2783.  ext.l d0
  2784.  addq #1,d0
  2785.  
  2786.  move.b RIGHTUVS-LEFTUVS(a0),d3
  2787.  move.b (a0),d2
  2788.  
  2789.  ext.w d3
  2790.  ext.w d2
  2791.  
  2792.  tst.w d2
  2793.  blt .bothtowards
  2794.  
  2795. ; bgt .firstaway
  2796.  tst.w d3
  2797.  blt .bothtowards
  2798.  bra .bothaway
  2799.  
  2800. .firsttowards:
  2801.  tst.w d3
  2802.  ble .bothtowards
  2803.  
  2804. ; First is towards and second away...
  2805.  
  2806.  move.w d0,d7    ; total length
  2807.  move.w d0,d6
  2808.  neg.w d2
  2809.  add.w d2,d3
  2810.  muls d2,d6
  2811.  divs d3,d6    ; length of first bit
  2812.  sub.w d6,d7    ; length of second bit
  2813.  move.w d6,FIRSTLEN
  2814.  move.w d7,LASTLEN
  2815.  
  2816.  tst.w FIRSTLEN
  2817.  beq .bothaway
  2818.  tst.w LASTLEN
  2819.  beq .bothtowards
  2820.  
  2821.  moveq #0,d2
  2822.  moveq #0,d3
  2823.  moveq #0,d4
  2824.  moveq #0,d5
  2825.  move.b 6(a0),d2
  2826.  move.b 7(a0),d3
  2827.  
  2828.  move.w d2,FIRSTU
  2829.  move.w d3,FIRSTV
  2830.  
  2831.  move.w d2,d4
  2832.  move.w d3,d5
  2833.  sub.w #128,d2
  2834.  sub.w #128,d3
  2835.  muls d2,d2
  2836.  muls d3,d3
  2837.  add.l d3,d2
  2838.  jsr CALCSQROOT
  2839.  
  2840.  tst.w d2
  2841.  beq.s .nochng
  2842.  
  2843.  sub.w #128,d4
  2844.  sub.w #128,d5
  2845.  muls #127,d4
  2846.  muls #127,d5
  2847.  divs d2,d4
  2848.  divs d2,d5
  2849.  add.w #128,d4
  2850.  add.w #128,d5
  2851.  
  2852. .nochng:
  2853.  
  2854.  move.w d4,MIDU
  2855.  move.w d5,MIDV
  2856.  
  2857.  move.b 6+RIGHTUVS-LEFTUVS(a0),d4
  2858.  move.b 7+RIGHTUVS-LEFTUVS(a0),d5
  2859.  move.w d4,SECU
  2860.  move.w d5,SECV
  2861.  
  2862.  move.w d4,d2
  2863.  move.w d5,d3
  2864.  
  2865.  sub.w #128,d2
  2866.  sub.w #128,d3
  2867.  muls d2,d2
  2868.  muls d3,d3
  2869.  add.l d3,d2
  2870.  jsr CALCSQROOT
  2871.  
  2872.  tst.w d2
  2873.  beq.s .nochng2
  2874.  
  2875.  sub.w #128,d4
  2876.  sub.w #128,d5
  2877.  muls #127,d4
  2878.  muls #127,d5
  2879.  divs d2,d4
  2880.  divs d2,d5
  2881.  add.w #128,d4
  2882.  add.w #128,d5
  2883.  
  2884. .nochng2:
  2885.  
  2886.  add.w MIDU,d4
  2887.  add.w MIDV,d5
  2888.  asr.w #1,d4
  2889.  asr.w #1,d5
  2890.  move.w d4,MIDU
  2891.  move.w d5,MIDV 
  2892.  
  2893.  move.l RIGHTUVS-LEFTUVS(a0),d7
  2894.  move.l (a0)+,d2 
  2895.  
  2896.  and.l #$ffffff,d2
  2897.  and.l #$ffffff,d7
  2898.  
  2899.  moveq #0,d3
  2900.  moveq #0,d5
  2901.  move.w d2,d3
  2902. ; bge.s .okp1
  2903. ; moveq #0,d3
  2904. ;.okp1
  2905.  move.w d7,d5
  2906. ; bge.s .okp2
  2907. ; moveq #0,d5
  2908. ;.okp2
  2909.  
  2910.  swap d3
  2911.  swap d5
  2912.  sub.l d3,d5
  2913.  divs.l d0,d5
  2914.  asr.l #8,d5
  2915.  move.w d5,RIGHTBRIGHT
  2916.  asr.l #8,d3
  2917.  move.w d3,LEFTBRIGHT
  2918.  
  2919.  clr.w d2
  2920.  clr.w d7
  2921.  sub.l d2,d7
  2922.  asl.l #8,d2
  2923.  divs.l d0,d7
  2924.  asl.l #8,d7
  2925.  
  2926.  move.l RIGHTUVS-LEFTUVS(a0),d6 
  2927.  move.l (a0)+,d3
  2928.  
  2929.  moveq #0,d4
  2930.  moveq #0,d5
  2931.  
  2932. ; move.w d6,d5
  2933. ; move.w d3,d4
  2934. ; move.b #0,d4
  2935. ; move.b #0,d5
  2936.  
  2937.  move.w FIRSTU,d4
  2938.  move.w MIDU,d5
  2939.  lsl.l #8,d4
  2940.  lsl.l #8,d5
  2941.  
  2942.  sub.l d4,d5
  2943.  divs.l FIRSTLEN-2,d5
  2944.  
  2945.  move.w d4,d2
  2946.  move.w d5,d7
  2947.  move.l d7,a1
  2948.  moveq #0,d4
  2949.  moveq #0,d5
  2950.  
  2951. ; move.b d6,d5
  2952. ; move.b d3,d4
  2953.  
  2954. ; swap d5
  2955. ; swap d4
  2956.  
  2957.  move.w FIRSTV,d4
  2958.  move.w MIDV,d5
  2959.  swap d4
  2960.  swap d5
  2961.  
  2962.  sub.l d4,d5
  2963.  divs.l FIRSTLEN-2,d5
  2964.  
  2965.  move.l d5,a3
  2966.  move.l d4,d5
  2967.   
  2968.  clr.w d3
  2969.  clr.w d6
  2970.  sub.l d3,d6
  2971.  divs.l d0,d6
  2972.  move.l d6,a4
  2973.  
  2974.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2975.  move.w (a0)+,d4
  2976.  swap d7
  2977.  clr.w d7
  2978.  swap d4
  2979.  clr.w d4
  2980.  sub.l d4,d7
  2981.  divs.l d0,d7
  2982.  move.l d7,a5
  2983.  
  2984. ; move.w RIGHTUVS-LEFTUVS(a0),d7
  2985. ; swap d7
  2986. ; clr.w d7
  2987.  move.w (a0)+,d7
  2988. ; swap d5
  2989. ; clr.w d5
  2990. ; sub.l d5,d7
  2991. ; divs.l d0,d7
  2992. ; move.l d7,a6
  2993.  
  2994.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2995.  swap d7
  2996.  clr.w d7
  2997.  move.w (a0)+,d6
  2998.  swap d6
  2999.  clr.w d6
  3000.  sub.l d6,d7
  3001.  divs.l d0,d7
  3002.  
  3003.  lsl.l #8,d6
  3004.  lsl.l #8,d7
  3005.  
  3006.  move.w RIGHTBRIGHT,d7
  3007.  move.l d7,a6
  3008.  
  3009.  
  3010.  move.l a0,-(a7)
  3011.  move.l d1,-(a7)
  3012.  move.l #TEXTURES,a0
  3013.  move.w TEXTUREADD,d7
  3014.  bge.s .okaddtes3
  3015.  and.w #$7fff,d7
  3016.  add.l #65536*4,a0
  3017. .okaddtes3:
  3018.  ext.l d7
  3019. ; add.l d7,d7
  3020.  asl.l #8,d7
  3021.  add.l d7,a0
  3022.  move.w #0,d7
  3023.  
  3024.  move.w LEFTBRIGHT,d6
  3025.  
  3026.  subq #1,d0
  3027.  swap d0
  3028.  move.w HIGHPOLY,d0
  3029.  swap d0
  3030.  
  3031.  
  3032. ; d0=xdist
  3033. ; d2=U    a1=DU
  3034. ; d3=V  a4=DV
  3035. ; d4=X  a5=DX
  3036. ; d5=Y  a6=DY
  3037. ; d6=Z  a3=DZ
  3038.  
  3039. ; d0= polynum : polynum : counter : counter
  3040. ; d1= scratch : scratch : scratch : scratch
  3041. ; d2= u : uacc : sv : svacc
  3042. ; d3= v : v : vacc : vacc
  3043. ; d4= x : x : xacc : xacc
  3044. ; d5= su : su : suacc : suacc
  3045. ; d6= z : zacc : bright : brightacc
  3046. ; d7= scratch : scratch : scratch : scratch
  3047.  
  3048. ; a0= textures
  3049. ; a1= uspeed : uspeed : suspeed : suspeed
  3050. ; a2= screen pointer
  3051. ; a3= svspeed : svspeed : svspeed : svspeed
  3052. ; a4= vspeed : vspeed : vspeed : vspeed
  3053. ; a5= xspeed : xspeed : xspeed : xspeed
  3054. ; a6= zspeed : zspeed :brightspeed : brightspeed
  3055. ; a7= shadowmap pointer
  3056.  
  3057.  
  3058.  move.w FIRSTLEN,d0
  3059.  sub.w #1,d0
  3060.  bsr STARTLINE
  3061.  
  3062.  move.l #0,d5
  3063.  move.w #0,d2
  3064.  move.l #0,a3
  3065.  
  3066.  move.w LASTLEN,d0
  3067.  sub.w #1,d0
  3068.  
  3069.  bsr STARTLINE
  3070.  
  3071.  
  3072.  move.l (a7)+,d1
  3073.  move.l (a7)+,a0
  3074.  move.l (a7)+,a2
  3075.  
  3076.  bra .noline
  3077.  
  3078. .firstaway:
  3079.  tst.w d3
  3080.  bge .bothaway
  3081.  
  3082.  
  3083. ; first is away and second is towards...
  3084.  
  3085. ; this really isn't going to work...
  3086.  
  3087.  move.w d0,d7    ; total length
  3088.  move.w d0,d6
  3089.  neg.w d3
  3090.  add.w d2,d3
  3091.  muls d2,d6
  3092.  divs d3,d6    ; length of first bit
  3093.  sub.w d6,d7    ; length of second bit
  3094.  move.w d6,FIRSTLEN
  3095.  move.w d7,LASTLEN
  3096.  
  3097.  tst.w FIRSTLEN
  3098.  beq .bothaway
  3099.  tst.w LASTLEN
  3100.  beq .bothtowards
  3101.  
  3102.  moveq #0,d2
  3103.  moveq #0,d3
  3104.  moveq #0,d4
  3105.  moveq #0,d5
  3106.  move.b 6(a0),d2
  3107.  move.b 7(a0),d3
  3108.  
  3109.  move.w d2,FIRSTU
  3110.  move.w d3,FIRSTV
  3111.  
  3112.  move.w d2,d4
  3113.  move.w d3,d5
  3114.  sub.w #128,d2
  3115.  sub.w #128,d3
  3116.  muls d2,d2
  3117.  muls d3,d3
  3118.  add.l d3,d2
  3119.  jsr CALCSQROOT
  3120.  
  3121.  tst.w d2
  3122.  beq.s .nochng22
  3123.  
  3124.  sub.w #128,d4
  3125.  sub.w #128,d5
  3126.  muls #127,d4
  3127.  muls #127,d5
  3128.  divs d2,d4
  3129.  divs d2,d5
  3130.  add.w #128,d4
  3131.  add.w #128,d5
  3132.  
  3133. .nochng22:
  3134.  
  3135.  move.w d4,MIDU
  3136.  move.w d5,MIDV
  3137.  
  3138.  moveq #0,d4
  3139.  moveq #0,d5
  3140.  move.b 6+RIGHTUVS-LEFTUVS(a0),d4
  3141.  move.b 7+RIGHTUVS-LEFTUVS(a0),d5
  3142.  move.w d4,SECU
  3143.  move.w d5,SECV
  3144.  
  3145.  move.w d4,d2
  3146.  move.w d5,d3
  3147.  
  3148.  sub.w #128,d2
  3149.  sub.w #128,d3
  3150.  muls d2,d2
  3151.  muls d3,d3
  3152.  add.l d3,d2
  3153.  jsr CALCSQROOT
  3154.  
  3155.  tst.w d2
  3156.  beq.s .nochng222
  3157.  
  3158.  sub.w #128,d4
  3159.  sub.w #128,d5
  3160.  muls #127,d4
  3161.  muls #127,d5
  3162.  divs d2,d4
  3163.  divs d2,d5
  3164.  add.w #128,d4
  3165.  add.w #128,d5
  3166.  
  3167. .nochng222:
  3168.  
  3169.  add.w MIDU,d4
  3170.  add.w MIDV,d5
  3171.  asr.w #1,d4
  3172.  asr.w #1,d5
  3173.  move.w d4,MIDU
  3174.  move.w d5,MIDV
  3175.  
  3176.  
  3177.  move.l RIGHTUVS-LEFTUVS(a0),d7
  3178.  move.l (a0)+,d2 
  3179.  
  3180.  and.l #$ffffff,d2
  3181.  and.l #$ffffff,d7
  3182.  
  3183.  moveq #0,d3
  3184.  moveq #0,d5
  3185.  move.w d2,d3
  3186.  move.w d7,d5
  3187.  swap d3
  3188.  swap d5
  3189.  sub.l d3,d5
  3190.  divs.l d0,d5
  3191.  asr.l #8,d5
  3192.  move.w d5,RIGHTBRIGHT
  3193.  asr.l #8,d3
  3194.  move.w d3,LEFTBRIGHT
  3195.  
  3196.  clr.w d2
  3197.  clr.w d7
  3198.  sub.l d2,d7
  3199.  asl.l #8,d2
  3200.  divs.l d0,d7
  3201.  asl.l #8,d7
  3202.  
  3203.  move.l RIGHTUVS-LEFTUVS(a0),d6 
  3204.  move.l (a0)+,d3
  3205.  
  3206.  moveq #0,d4
  3207.  moveq #0,d5
  3208.  
  3209.  move.w MIDU,d4
  3210.  move.w SECU,d5
  3211.  lsl.w #8,d4
  3212.  lsl.w #8,d5
  3213.  
  3214. ; move.w d6,d5
  3215. ; move.w d3,d4
  3216. ; move.b #0,d4
  3217. ; move.b #0,d5
  3218.  
  3219.  sub.l d4,d5
  3220.  divs.l LASTLEN-2,d5
  3221.  
  3222.  move.w d4,d2
  3223.  move.w d5,d7
  3224.  move.l d7,a1
  3225.  moveq #0,d4
  3226.  moveq #0,d5
  3227.  
  3228.  move.w MIDV,d4
  3229.  move.w SECV,d5
  3230.  
  3231.  swap d5
  3232.  swap d4
  3233.  
  3234.  sub.l d4,d5
  3235.  divs.l LASTLEN-2,d5
  3236.  
  3237.  move.l d5,a3
  3238.  move.l d4,d5
  3239.  
  3240.  clr.w d3
  3241.  clr.w d6
  3242.  sub.l d3,d6
  3243.  divs.l d0,d6
  3244.  move.l d6,a4
  3245.  
  3246.  move.w RIGHTUVS-LEFTUVS(a0),d7
  3247.  move.w (a0)+,d4
  3248.  swap d7
  3249.  clr.w d7
  3250.  swap d4
  3251.  clr.w d4
  3252.  sub.l d4,d7
  3253.  divs.l d0,d7
  3254.  move.l d7,a5
  3255.  
  3256. ; move.w RIGHTUVS-LEFTUVS(a0),d7
  3257. ; swap d7
  3258. ; clr.w d7
  3259.  move.w (a0)+,d7
  3260. ; swap d5
  3261. ; clr.w d5
  3262. ; sub.l d5,d7
  3263. ; divs.l d0,d7
  3264. ; move.l d7,a6
  3265.  
  3266.  move.w RIGHTUVS-LEFTUVS(a0),d7
  3267.  swap d7
  3268.  clr.w d7
  3269.  move.w (a0)+,d6
  3270.  swap d6
  3271.  clr.w d6
  3272.  sub.l d6,d7
  3273.  divs.l d0,d7
  3274.  
  3275.  lsl.l #8,d6
  3276.  lsl.l #8,d7
  3277.  
  3278.  move.w RIGHTBRIGHT,d7
  3279.  move.l d7,a6
  3280.  
  3281.  move.l a0,-(a7)
  3282.  move.l d1,-(a7)
  3283.  move.l #TEXTURES,a0
  3284.  move.w TEXTUREADD,d7
  3285.  bge.s .okaddtes4
  3286.  and.w #$7fff,d7
  3287.  add.l #65536*4,a0
  3288. .okaddtes4:
  3289.  ext.l d7
  3290. ; add.l d7,d7
  3291.  asl.l #8,d7
  3292.  add.l d7,a0
  3293.  move.w #0,d7
  3294.  
  3295.  move.w LEFTBRIGHT,d6
  3296.  
  3297.  
  3298.  subq #1,d0
  3299.  swap d0
  3300.  move.w HIGHPOLY,d0
  3301.  swap d0
  3302.  
  3303.  
  3304. ; d0=xdist
  3305. ; d2=U    a1=DU
  3306. ; d3=V  a4=DV
  3307. ; d4=X  a5=DX
  3308. ; d5=Y  a6=DY
  3309. ; d6=Z  a3=DZ
  3310.  
  3311. ; d0= polynum : polynum : counter : counter
  3312. ; d1= scratch : scratch : scratch : scratch
  3313. ; d2= u : uacc : sv : svacc
  3314. ; d3= v : v : vacc : vacc
  3315. ; d4= x : x : xacc : xacc
  3316. ; d5= su : su : suacc : suacc
  3317. ; d6= z : zacc : bright : brightacc
  3318. ; d7= scratch : scratch : scratch : scratch
  3319.  
  3320. ; a0= textures
  3321. ; a1= uspeed : uspeed : suspeed : suspeed
  3322. ; a2= screen pointer
  3323. ; a3= svspeed : svspeed : svspeed : svspeed
  3324. ; a4= vspeed : vspeed : vspeed : vspeed
  3325. ; a5= xspeed : xspeed : xspeed : xspeed
  3326. ; a6= zspeed : zspeed :brightspeed : brightspeed
  3327. ; a7= shadowmap pointer
  3328.  
  3329.  move.w d2,-(a7)
  3330.  move.l d5,-(a7)
  3331.  move.l a3,-(a7)
  3332.  
  3333.  move.w #0,d2
  3334.  move.l #0,d5
  3335.  move.l #0,a3
  3336.  
  3337.  move.w FIRSTLEN,d0
  3338.  subq #1,d0
  3339.  bsr STARTLINE
  3340.  
  3341.  
  3342.  move.l (a7)+,a3
  3343.  move.l (a7)+,d5
  3344.  move.w (a7)+,d2
  3345.  
  3346.  move.w LASTLEN,d0
  3347.  subq #1,d0
  3348.  
  3349.  bsr STARTLINE
  3350.  
  3351.  
  3352.  move.l (a7)+,d1
  3353.  move.l (a7)+,a0
  3354.  move.l (a7)+,a2
  3355.  
  3356.  bra .noline
  3357.  
  3358.  
  3359. .bothaway:
  3360.  
  3361.  move.w #0,6+RIGHTUVS-LEFTUVS(a0)
  3362.  move.w #0,6(a0)
  3363.  
  3364. .bothtowards:
  3365.  
  3366.  ifne PH
  3367.  tst.w 16+RIGHTUVS-LEFTUVS(a0)
  3368.  blt.s .okone
  3369.  tst.w 16(a0)
  3370.  blt.s .okone
  3371.  
  3372.  move.w #0,2(a0)
  3373.  move.w #0,2+RIGHTUVS-LEFTUVS(a0)
  3374.  move.w #0,14(a0)
  3375.  move.w #0,14+RIGHTUVS-LEFTUVS(a0)
  3376.  
  3377. .okone:
  3378.  endc
  3379.  
  3380.  move.l RIGHTUVS-LEFTUVS(a0),d7
  3381.  move.l (a0)+,d2 
  3382.  
  3383.  and.l #$ffffff,d2
  3384.  and.l #$ffffff,d7
  3385.  
  3386.  moveq #0,d3
  3387.  moveq #0,d5
  3388.  move.w d2,d3
  3389.  move.w d7,d5
  3390.  swap d3
  3391.  swap d5
  3392.  sub.l d3,d5
  3393.  divs.l d0,d5
  3394.  asr.l #8,d5
  3395.  move.w d5,RIGHTBRIGHT
  3396.  asr.l #8,d3
  3397.  move.w d3,LEFTBRIGHT
  3398.  
  3399.  clr.w d2
  3400.  clr.w d7
  3401.  sub.l d2,d7
  3402.  asl.l #8,d2
  3403.  divs.l d0,d7
  3404.  asl.l #8,d7
  3405.  
  3406.  move.l RIGHTUVS-LEFTUVS(a0),d6 
  3407.  move.l (a0)+,d3
  3408.  
  3409.  moveq #0,d4
  3410.  moveq #0,d5
  3411.  
  3412.  move.w d6,d5
  3413.  move.w d3,d4
  3414.  move.b #0,d4
  3415.  move.b #0,d5
  3416.  
  3417.  sub.l d4,d5
  3418.  divs.l d0,d5
  3419.  
  3420.  move.w d4,d2
  3421.  move.w d5,d7
  3422.  move.l d7,a1
  3423.  moveq #0,d4
  3424.  moveq #0,d5
  3425.  
  3426.  move.b d6,d5
  3427.  move.b d3,d4
  3428.  
  3429.  swap d5
  3430.  swap d4
  3431.  
  3432.  sub.l d4,d5
  3433.  divs.l d0,d5
  3434.  
  3435.  move.l d5,a3
  3436.  move.l d4,d5
  3437.  
  3438.   
  3439.  clr.w d3
  3440.  clr.w d6
  3441.  sub.l d3,d6
  3442.  divs.l d0,d6
  3443.  
  3444.  asr.l #8,d3        ; XX XX vpos vacc
  3445.  asr.l #8,d6         ; XX XX vspeed vspeed
  3446.  
  3447. ; move.l d6,a4
  3448.  
  3449.  move.w RIGHTUVS-LEFTUVS(a0),d7
  3450.  move.w (a0)+,d4
  3451.  swap d7
  3452.  clr.w d7
  3453.  swap d4
  3454.  clr.w d4
  3455.  sub.l d4,d7
  3456.  divs.l d0,d7
  3457.  asl.l #8,d4
  3458.  asl.l #8,d7
  3459.  move.w d3,d4
  3460.  move.w d6,d7
  3461.  move.l d7,a5
  3462.  
  3463. ; move.w RIGHTUVS-LEFTUVS(a0),d7
  3464. ; swap d7
  3465. ; clr.w d7
  3466.  move.w (a0)+,d7
  3467. ; swap d5
  3468. ; clr.w d5
  3469. ; sub.l d5,d7
  3470. ; divs.l d0,d7
  3471. ; move.l d7,a6
  3472.  
  3473.  move.w RIGHTUVS-LEFTUVS(a0),d7
  3474.  swap d7
  3475.  clr.w d7
  3476.  move.w (a0)+,d6
  3477.  swap d6
  3478.  clr.w d6
  3479.  sub.l d6,d7
  3480.  divs.l d0,d7
  3481.  
  3482.  lsl.l #8,d6
  3483.  lsl.l #8,d7
  3484.  
  3485.  move.w RIGHTBRIGHT,d7
  3486.  move.l d7,a6
  3487.  
  3488.  moveq #0,d7
  3489.  moveq #0,d3
  3490.  move.w RIGHTUVS-LEFTUVS(a0),d7
  3491.  move.w (a0)+,d3
  3492.  
  3493.  addq #2,a0
  3494.  
  3495.  sub.w d3,d7
  3496.  swap d3
  3497.  swap d7
  3498.  divs.l d0,d7
  3499.  
  3500.  move.l d7,a4
  3501.  
  3502.  
  3503.  move.l a0,-(a7)
  3504.  move.l d1,-(a7)
  3505.  move.l #TEXTURES,a0
  3506.  move.w TEXTUREADD,d7
  3507.  bge.s .okaddtes5
  3508.  and.w #$7fff,d7
  3509.  add.l #65536*4,a0
  3510. .okaddtes5:
  3511.  ext.l d7
  3512.  asl.l #8,d7
  3513.  add.l d7,a0
  3514.  move.w #0,d7
  3515.  
  3516.  move.w LEFTBRIGHT,d6
  3517.  
  3518.  subq #1,d0
  3519.  swap d0
  3520.  move.w HIGHPOLY,d0
  3521.  swap d0
  3522.  
  3523.  
  3524. ; d0=xdist
  3525. ; d2=U    a1=DU
  3526. ; d3=V  a4=DV
  3527. ; d4=X  a5=DX
  3528. ; d5=Y  a6=DY
  3529. ; d6=Z  a3=DZ
  3530.  
  3531. ; d0= polynum : polynum : counter : counter
  3532. ; d1= scratch : scratch : scratch : scratch
  3533. ; d2= u : uacc : sv : svacc
  3534. ; d3= pxpos : pxpos : pxacc : pxacc
  3535. ; d4= x : xacc : v : vacc
  3536. ; d5= su : su : suacc : suacc
  3537. ; d6= z : zacc : pypos : pyacc
  3538. ; d7= scratch : scratch : scratch : scratch
  3539.  
  3540. ; a0= textures
  3541. ; a1= uspeed : uspeed : suspeed : suspeed
  3542. ; a2= screen pointer
  3543. ; a3= svspeed : svspeed : svspeed : svspeed
  3544. ; a4= pxspd : pxspd : pxspd : pxspd
  3545. ; a5= xspeed : xspeed : vspeed : vspeed
  3546. ; a6= zspeed : zspeed : pyspeed : pyspeed
  3547. ; a7= shadowmap pointer
  3548.  
  3549.  bsr STARTLINE
  3550.  
  3551.  move.l (a7)+,d1
  3552.  move.l (a7)+,a0
  3553.  move.l (a7)+,a2
  3554.  
  3555. .noline:
  3556.  add.w #320,a2
  3557.  
  3558.  swap d1
  3559.  dbra d1,DOAHORLINEGOUR
  3560.  
  3561.  bra NOPOLYGON
  3562.  
  3563.  
  3564.  
  3565.  
  3566.  
  3567. *******************************
  3568. STARTLINE:
  3569.  
  3570.  move.l a7,SAVESTACK
  3571.  move.l #SHADOWBUFFER,a7
  3572.  
  3573.  moveq #0,d1
  3574.  swap d6
  3575.  move.w d6,d1
  3576.  move.l d4,d7
  3577.  swap d7
  3578.  lsr.w #8,d7
  3579.  move.b d7,d1
  3580.  swap d6
  3581.  
  3582.  swap d0
  3583.  moveq #0,d7
  3584.  move.b (a7,d1.l*2),d7
  3585.  cmp.w d7,d0
  3586.  ble .startlight
  3587.  swap d0
  3588.  bra INTHEDARKGOUR
  3589. .startlight:
  3590.  swap d0
  3591.  bra INTHELIGHTGOUR 
  3592. .startdark:
  3593. ***********************************
  3594.  
  3595.  
  3596.  
  3597. PENUMBRAGOUR:
  3598.  moveq #0,d1
  3599.  swap d6
  3600.  move.w d6,d1
  3601.  move.l d4,d7
  3602.  lsr.l #8,d7
  3603.  swap d7
  3604.  move.b d7,d1
  3605.  swap d6
  3606.  add.l a5,d4
  3607.  add.l a6,d6
  3608.  add.l a3,d5
  3609.  
  3610.  swap d0
  3611.  moveq #0,d7
  3612.  move.b (a7,d1.l*2),d7
  3613.  cmp.w d7,d0
  3614.  ifne SHADOWMAP
  3615.  ble INTOLIGHTGOUR
  3616.  endc
  3617.  ifeq SHADOWMAP
  3618.  bra INTOLIGHTGOUR
  3619.  endc
  3620.  bra.s INTODARKGOUR
  3621.  
  3622. INTHEDARKGOUR:
  3623.  moveq #0,d1
  3624.  swap d6
  3625.  move.w d6,d1
  3626.  move.l d4,d7
  3627.  swap d7
  3628.  asr.w #8,d7
  3629.  move.b d7,d1
  3630.  swap d6
  3631.  add.l a5,d4
  3632.  add.l a6,d6
  3633.  add.l a3,d5
  3634.  
  3635.  swap d0
  3636.  moveq #0,d7
  3637.  move.b (a7,d1.l*2),d7
  3638.  cmp.w d7,d0
  3639.  ifne SHADOWMAP
  3640.  ble.s INTOPENUMGOUR
  3641.  endc
  3642.  ifeq SHADOWMAP
  3643.  bra INTOLIGHTGOUR
  3644.  endc
  3645. INTODARKGOUR:
  3646.  swap d0
  3647.  
  3648. ;**********************
  3649. ; moveq #0,d7
  3650. ;********************** 
  3651.  
  3652.  swap d2
  3653.  move.w d2,d1
  3654.  move.w d4,d7
  3655.  lsr.w #8,d7
  3656.  move.b d7,d1
  3657.  swap d2
  3658.  add.l a1,d2
  3659.  add.l a4,d3
  3660.  
  3661.  move.l #(31*32*256),d7
  3662.  move.b 1(a0,d1.w*4),d7
  3663.  bra DARKplottt
  3664.  
  3665. .noplottt
  3666.  addq #1,a2
  3667.  dbra d0,INTHEDARKGOUR
  3668.  bra DONEDONEBUM
  3669.  
  3670. INTOPENUMGOUR:
  3671.  swap d0
  3672.  
  3673. *********************
  3674. ; moveq #0,d7
  3675. *****************
  3676.  
  3677.  swap d2
  3678.  move.w d2,d1
  3679.  move.w d4,d7
  3680.  lsr.w #8,d7
  3681.  move.b d7,d1
  3682.  swap d2
  3683.  add.l a1,d2
  3684.  add.l a4,d3
  3685.  
  3686.  move.l (a0,d1.w*4),d1
  3687.  moveq #0,d7
  3688.  move.w d6,d7
  3689.  swap d3
  3690.  move.b d3,d7
  3691.  add.w d1,d7
  3692.  swap d3
  3693.  
  3694.  move.b 1(a7,d7.l*2),d7
  3695.  lsl.w #8,d7
  3696.  
  3697. ; sub.w #$1c00,d7
  3698.  asr.w #1,d7
  3699. ; add.w #$1c00,d7
  3700.  neg.w d7
  3701.  add.w #$1f00,d7
  3702.  sub.b d7,d7
  3703.  
  3704.  asl.l #5,d7
  3705.  swap d1
  3706.  move.b d1,d7
  3707.  
  3708.  
  3709.  bra.s PENUMplottt
  3710.  
  3711. .noplottt
  3712.  addq #1,a2
  3713.  dbra d0,PENUMBRAGOUR
  3714.  bra DONEDONEBUM
  3715.  
  3716.  
  3717. INTHELIGHTGOUR:
  3718.  
  3719.  moveq #0,d1
  3720.  swap d6
  3721.  move.w d6,d1
  3722.  move.l d4,d7
  3723.  swap d7
  3724.  lsr.w #8,d7
  3725.  move.b d7,d1
  3726.  swap d6
  3727.  add.l a5,d4
  3728.  add.l a6,d6
  3729.  add.l a3,d5
  3730.  
  3731.  swap d0
  3732.  moveq #0,d7
  3733.  move.b (a7,d1.l*2),d7
  3734.  cmp.w d7,d0
  3735.  
  3736.  
  3737.  ifne SHADOWMAP
  3738.  bgt.s INTOPENUMGOUR
  3739.  endc
  3740.  
  3741. INTOLIGHTGOUR:
  3742.  swap d0
  3743.  
  3744.  swap d2
  3745.  move.w d2,d1
  3746.  move.w d4,d7
  3747.  asr.w #8,d7
  3748.  move.b d7,d1
  3749.  swap d2
  3750.  
  3751.  move.l (a0,d1.w*4),d1        ; SPEC COL OFX OFY
  3752.  
  3753.  add.l a1,d2
  3754.  add.l a4,d3
  3755.  
  3756.  bra.s LIGHTPLOTT
  3757. .noplottt:
  3758.  addq #1,a2
  3759.  dbra d0,INTHELIGHTGOUR
  3760. FLIBBLEY:
  3761.  bra.s DONEDONEBUM
  3762.  
  3763. PENUMplottt
  3764.  move.b GOURPAL(pc,d7.l),(a2)+
  3765.  dbra d0,PENUMBRAGOUR
  3766.  bra.s DONEDONEBUM
  3767.  
  3768. DARKplottt
  3769.  move.b GOURPAL(pc,d7.l),(a2)+
  3770.  dbra d0,INTHEDARKGOUR
  3771.  bra.s DONEDONEBUM
  3772.  
  3773. LIGHTPLOTT:
  3774.  moveq #0,d7
  3775.  
  3776.  move.w d2,d7
  3777.  swap d5
  3778.  move.b d5,d7
  3779.  swap d5
  3780.  
  3781.  ifne BUMPSPEC
  3782.  add.w d1,d7    ; coord in spec map
  3783.  endc
  3784.  
  3785.  swap d1
  3786.  ifeq SPECMAP
  3787.  and.w #$ff,d1
  3788.  endc
  3789.  
  3790.  move.b 1(a7,d7.l*2),d7    ; specular value of point.
  3791.  lsl.w #8,d7
  3792.  
  3793.  ifne SPECULAR 
  3794.  add.w d7,d1
  3795.  endc
  3796.  
  3797.  ifeq SPECULAR
  3798.  tst.w d1
  3799.  endc
  3800.  
  3801.  bgt.s .okshiney
  3802.  and.w #$ff,d1
  3803. .okshiney
  3804.  
  3805.  move.w d6,d7
  3806.  swap d3
  3807.  move.b d3,d7
  3808.  swap d1
  3809.  
  3810.  ifne BUMPPHONG
  3811.  add.w d1,d7
  3812.  endc
  3813.  
  3814.  clr.w d1
  3815.  swap d1
  3816.  move.b 1(a7,d7.l*2),d7 ; brightness of point
  3817.  neg.b d7
  3818.  add.b #31,d7
  3819.  and.w #$ff,d7
  3820.  swap d7
  3821.  lsr.l #3,d7
  3822.  swap d3
  3823.  add.l d7,d1
  3824.  
  3825.  move.b GOURPAL(pc,d1.l),(a2)+
  3826.  dbra d0,INTHELIGHTGOUR
  3827. DONEDONEBUM:
  3828.  move.l SAVESTACK,a7
  3829.  rts
  3830.  
  3831. GOURPAL: incbin "ab3:includes/bigshadow.pal"
  3832.  
  3833.  
  3834.  
  3835.  
  3836. LEFTSHINEV: dc.l 0
  3837. RIGHTSHINEV: dc.l 0
  3838. LEFTSHINEU: dc.l 0
  3839. RIGHTSHINEU: dc.l 0
  3840.  
  3841. TOPPTR: dc.l 0
  3842. TOPPTNUM: dc.w 0
  3843. BOTPTNUM: dc.w 0
  3844. LEFTBRIGHT: dc.w 0
  3845. RIGHTBRIGHT: dc.l 0
  3846. LEFTSPEC: dc.w 0
  3847. RIGHTSPEC: dc.w 0
  3848.  
  3849. ***********************************************
  3850.     
  3851. SIMPLECALCLINE:
  3852.  move.l #ONSCREENPTS,a1
  3853.  
  3854.  move.w 2(a1,d0.w*4),d2        ;fy
  3855.  move.w 2(a1,d1.w*4),d7        ;sy
  3856.  
  3857.  move.l #RIGHTUVS,a3
  3858.  asr.w #2,d2
  3859.  asr.w #2,d7
  3860.  cmp.w d2,d7 
  3861.  beq .noline
  3862.  
  3863.  bgt.s .lineonright
  3864. .lineonleft:
  3865.  move.l #LEFTUVS,a3
  3866.  exg d0,d1
  3867.  exg d2,d7
  3868.  
  3869. .lineonright:
  3870.  move.w d0,TOPPTNUM
  3871.  move.w d1,BOTPTNUM
  3872.  
  3873.  sub.w d2,d7
  3874.  move.w d2,d3
  3875.  muls #20,d3
  3876.  asl.w #4,d2
  3877.  add.w d3,a3
  3878.  move.l a3,TOPPTR
  3879.  
  3880.  move.w d7,YDIFF
  3881.  
  3882.  move.w (a1,d0.w*4),d3        ;fx
  3883.  move.w (a1,d1.w*4),d7        ;sx
  3884.  
  3885.  sub.w d3,d7
  3886.  swap d3
  3887.  swap d7
  3888.  clr.w d3
  3889.  clr.w d7
  3890.  divs.l YDIFF-2,d7
  3891.  move.l d7,a0    ; dx
  3892.  
  3893.  move.l #UVCOORDS,a2
  3894.  move.l #SHADOWPTS,a1
  3895.  
  3896.  move.w (a2,d0.w*4),d4
  3897.  move.w 2(a2,d0.w*4),d5
  3898.  move.w (a2,d1.w*4),d6
  3899.  move.w 2(a2,d1.w*4),d7
  3900.  
  3901.  sub.w d4,d6
  3902.  sub.w d5,d7
  3903.  swap d4
  3904.  swap d5
  3905.  clr.w d4
  3906.  clr.w d5
  3907.  swap d6
  3908.  swap d7
  3909.  clr.w d6
  3910.  clr.w d7
  3911.  
  3912.  divs.l YDIFF-2,d6
  3913.  divs.l YDIFF-2,d7
  3914.  
  3915.  move.l d6,a4
  3916.  move.l d7,a5
  3917.  
  3918.  muls #10,d0
  3919.  muls #10,d1
  3920.  move.l (a1,d0.w),d6
  3921.  
  3922.  move.l (a1,d1.w),d7
  3923.  asl.l #5,d6
  3924.  asl.l #5,d7
  3925.  sub.l d6,d7
  3926.  divs.l YDIFF-2,d7
  3927.  move.l d7,a2
  3928.  move.l d6,a6
  3929.  
  3930.  move.l 4(a1,d0.w),d6
  3931.  move.l 4(a1,d1.w),d7
  3932.  asl.l #5,d6
  3933.  asl.l #5,d7
  3934.  sub.l d6,d7
  3935.  divs.l YDIFF-2,d7
  3936.  exg d7,a6
  3937.  exg d7,d6
  3938.  
  3939.  move.w 8(a1,d0.w),d0
  3940.  move.w 8(a1,d1.w),d1
  3941.  swap d0
  3942.  swap d1
  3943.  clr.w d0
  3944.  clr.w d1
  3945.  asr.l #2,d0
  3946.  asr.l #2,d1
  3947.  sub.l d0,d1
  3948.  divs.l YDIFF-2,d1
  3949.  move.l d1,a1
  3950.  move.l YDIFF-2,d1
  3951.  subq #1,d1
  3952.  
  3953. ; d3=sx a0=dsx
  3954. ; d4=u a4=du
  3955. ; d5=v a5=dv
  3956. ; d6=x a2=dx
  3957. ; d7=y a6=dy
  3958. ; d0=z a1=dz
  3959. ; d1=dsy
  3960.  
  3961.  
  3962.  add.l #128*65536,d6
  3963.  add.l #128*65536,d7
  3964.  add.l #128*65536,d0
  3965.  
  3966. .PUTINLINE:
  3967.  swap d3
  3968.  move.w d3,(a3)+
  3969.  swap d3
  3970.  add.l a0,d3
  3971.  move.l d4,(a3)+
  3972.  add.l a4,d4
  3973.  move.l d5,(a3)+
  3974.  swap d6
  3975.  add.l a5,d5
  3976.  move.w d6,(a3)+
  3977.  swap d6
  3978.  swap d7
  3979.  add.l a2,d6
  3980.  move.w d7,(a3)+
  3981.  swap d7
  3982.  swap d0
  3983.  add.l a6,d7
  3984.  move.w d0,(a3)+
  3985.  addq #4,a3
  3986.  swap d0
  3987.  add.l a1,d0
  3988.  dbra d1,.PUTINLINE
  3989.  
  3990.  tst.b Gouraud
  3991.  beq .noline
  3992.  
  3993.  move.w TOPPTNUM,d0
  3994.  move.w BOTPTNUM,d1
  3995.  move.l TOPPTR,a3
  3996.  moveq #0,d6
  3997.  move.w YDIFF,d6
  3998.  
  3999.  move.l #SPECBRIGHTS,a2
  4000.  
  4001.  moveq #0,d2
  4002.  moveq #0,d3
  4003.  move.b (a2,d0.w*4),d2
  4004.  move.b 1(a2,d0.w*4),d3
  4005.  sub.w #128,d2
  4006.  sub.w #128,d3
  4007.  
  4008.  move.w d2,d4
  4009.  move.w d3,d5
  4010.  muls ACOS,d2
  4011.  muls ASIN,d3
  4012.  sub.l d3,d2
  4013.  muls ASIN,d4
  4014.  muls ACOS,d5
  4015.  add.l d5,d4
  4016.  asl.l #2,d2
  4017.  swap d2
  4018.  asl.l #2,d4
  4019.  swap d4
  4020.  
  4021.  add.w #128,d2
  4022.  add.w #128,d4
  4023.  move.w d2,FSX
  4024.  move.w d4,FSY
  4025.  
  4026.  moveq #0,d2
  4027.  moveq #0,d3
  4028.  move.b (a2,d1.w*4),d2
  4029.  move.b 1(a2,d1.w*4),d3
  4030.  sub.w #128,d2
  4031.  sub.w #128,d3
  4032.  
  4033.  move.w d2,d4
  4034.  move.w d3,d5
  4035.  muls ACOS,d2
  4036.  muls ASIN,d3
  4037.  sub.l d3,d2
  4038.  muls ASIN,d4
  4039.  muls ACOS,d5
  4040.  add.l d5,d4
  4041.  asl.l #2,d2
  4042.  swap d2
  4043.  asl.l #2,d4
  4044.  swap d4
  4045.  
  4046.  add.w #128,d2
  4047.  add.w #128,d4
  4048.  move.w d2,SSX
  4049.  move.w d4,SSY
  4050.  
  4051.  
  4052.  move.w 2(a2,d0.w*4),d2
  4053.  move.w 2(a2,d1.w*4),d3
  4054.  
  4055.  asr.w #4,d2
  4056.  asr.w #4,d3
  4057.  
  4058.  bra .bothtowards
  4059.  
  4060.  tst.w d2
  4061.  blt .firsttowards
  4062.  bgt.s .firstaway
  4063.  
  4064.  tst.w d3
  4065.  ble .bothtowards
  4066.  bra .bothaway
  4067.  
  4068. .firstaway
  4069.  tst.w d3
  4070.  blt .sectowards
  4071.  bra .bothaway
  4072.  
  4073. .firsttowards:
  4074.  tst.w d3
  4075.  ble .bothtowards
  4076.  
  4077. ; First one is towards, the second away.
  4078. ; Do the line in two bits: one heading
  4079. ; from the first point to the rim, the
  4080. ; other heading from the rim to the second
  4081. ; point and flagged as behind.
  4082.  
  4083.  move.w d6,d7    ; total length to draw
  4084.  move.w d2,FIRSTY
  4085.  move.w d3,LASTY
  4086.  
  4087.  neg.w d2
  4088.  add.w d2,d3     ; total change in Y
  4089.  
  4090.  bra.s .onetowards
  4091.  
  4092. .sectowards:
  4093.  move.w d6,d7    ; total length to draw
  4094.  move.w d2,FIRSTY
  4095.  move.w d3,LASTY
  4096.  neg.w d3
  4097.  add.w d2,d3
  4098.  
  4099. .onetowards:
  4100.  
  4101.  muls d2,d6
  4102.  divs d3,d6    ; length of first bit of line.
  4103.  
  4104.  ext.l d6
  4105.  ext.l d7
  4106.  
  4107.  move.w d6,FIRSTLEN
  4108.  sub.l d6,d7
  4109.  move.w d7,LASTLEN
  4110.  
  4111.  add.l d7,d6
  4112.  
  4113.  move.w FIRSTY,d2
  4114.  move.w LASTY,d3
  4115.  swap d2
  4116.  clr.w d2
  4117.  swap d3
  4118.  clr.w d3
  4119.  sub.l d2,d3
  4120.  divs.l d6,d3
  4121.  move.l d3,a6
  4122.  move.l d2,d7
  4123.  
  4124.  moveq #0,d2
  4125.  moveq #0,d3
  4126.  moveq #0,d4
  4127.  moveq #0,d5
  4128.  move.b (a2,d0.w*4),d2
  4129.  move.b 1(a2,d0.w*4),d3
  4130.  
  4131.  move.w d2,FIRSTU
  4132.  move.w d3,FIRSTV
  4133.  
  4134.  move.w d2,d4
  4135.  move.w d3,d5
  4136.  sub.w #128,d2
  4137.  sub.w #128,d3
  4138.  muls d2,d2
  4139.  muls d3,d3
  4140.  add.l d3,d2
  4141.  jsr CALCSQROOT
  4142.  
  4143.  tst.w d2
  4144.  beq.s .nochng
  4145.  
  4146.  sub.w #128,d4
  4147.  sub.w #128,d5
  4148.  muls #127,d4
  4149.  muls #127,d5
  4150.  divs d2,d4
  4151.  divs d2,d5
  4152.  add.w #128,d4
  4153.  add.w #128,d5
  4154.  
  4155. .nochng:
  4156.  
  4157.  move.w d4,MIDU
  4158.  move.w d5,MIDV
  4159.  
  4160.  move.b (a2,d1.w*4),d4
  4161.  move.b 1(a2,d1.w*4),d5
  4162.  move.w d4,SECU
  4163.  move.w d5,SECV
  4164.  
  4165. ; move.w d4,d2
  4166. ; move.w d5,d3
  4167. ;
  4168. ; sub.w #128,d2
  4169. ; sub.w #128,d3
  4170. ; muls d2,d2
  4171. ; muls d3,d3
  4172. ; add.l d3,d2
  4173. ; jsr CALCSQROOT
  4174. ;
  4175. ; tst.w d2
  4176. ; beq.s .nochng2
  4177. ;
  4178. ; sub.w #128,d4
  4179. ; sub.w #128,d5
  4180. ; muls #127,d4
  4181. ; muls #127,d5
  4182. ; divs d2,d4
  4183. ; divs d2,d5
  4184. ; add.w #128,d4
  4185. ; add.w #128,d5
  4186. ; 
  4187. ;.nochng2:
  4188. ;
  4189. ; add.w MIDU,d4
  4190. ; add.w MIDV,d5
  4191. ; asr.w #1,d4
  4192. ; asr.w #1,d5
  4193. ; move.w d4,MIDU
  4194. ; move.w d4,MIDV
  4195.  
  4196.  move.l #NORMBRIGHTS,a2
  4197.  move.w (a2,d0.w*2),d0
  4198.  move.w (a2,d1.w*2),d1
  4199.  
  4200.  sub.w d0,d1
  4201.  swap d1
  4202.  swap d0
  4203.  divs.l d6,d1
  4204.  
  4205.  move.w FIRSTLEN,d6
  4206.  beq.s .nofirstbit
  4207.  ext.l d6
  4208.  
  4209.  moveq #0,d2
  4210.  moveq #0,d3
  4211.  moveq #0,d4
  4212.  moveq #0,d5
  4213.  move.w FIRSTU,d2
  4214.  move.w MIDU,d3
  4215.  move.w FIRSTV,d4
  4216.  move.w MIDV,d5
  4217.  
  4218.  sub.w d2,d3
  4219.  swap d2
  4220.  swap d3
  4221.  divs.l d6,d3
  4222.  move.l d3,a4
  4223.  
  4224.  sub.w d4,d5
  4225.  swap d4
  4226.  swap d5
  4227.  divs.l d6,d5
  4228.  move.l d5,a5
  4229.  
  4230.  bsr DOABITOFLINE
  4231. .nofirstbit:
  4232.  
  4233.  move.w LASTLEN,d6
  4234.  beq.s .nosecbit
  4235.  ext.l d6
  4236.  
  4237.  moveq #0,d2
  4238.  moveq #0,d3
  4239.  moveq #0,d4
  4240.  moveq #0,d5
  4241.  move.w MIDU,d2
  4242.  move.w SECU,d3
  4243.  move.w MIDV,d4
  4244.  move.w SECV,d5
  4245.  
  4246.  sub.w d2,d3
  4247.  swap d2
  4248.  swap d3
  4249.  divs.l d6,d3
  4250.  move.l d3,a4
  4251.  
  4252.  sub.w d4,d5
  4253.  swap d4
  4254.  swap d5
  4255.  divs.l d6,d5
  4256.  move.l d5,a5
  4257.  
  4258.  bsr DOABITOFLINE
  4259. .nosecbit:
  4260.  
  4261.  bra .noline
  4262.  
  4263. .bothaway
  4264.  
  4265. ; Both are away, so do it simply.
  4266.  
  4267. .bothtowards:
  4268.  
  4269. ; Both are towards, so do it simply and flag all
  4270. ; points as towards.
  4271.  
  4272.  swap d2
  4273.  clr.w d2
  4274.  swap d3
  4275.  clr.w d3
  4276.  sub.l d2,d3
  4277.  divs.l d6,d3
  4278.  move.l d3,a6
  4279.  move.l d2,d7
  4280.  
  4281.  moveq #0,d2
  4282.  moveq #0,d3
  4283.  moveq #0,d4
  4284.  moveq #0,d5
  4285. ; move.b (a2,d0.w*4),d2
  4286. ; move.b (a2,d1.w*4),d3
  4287. ; move.b 1(a2,d0.w*4),d4
  4288. ; move.b 1(a2,d1.w*4),d5
  4289.  
  4290.  move.w FSX,d2
  4291.  move.w SSX,d3
  4292.  move.w FSY,d4
  4293.  move.w SSY,d5
  4294.  
  4295.  sub.w d2,d3
  4296.  swap d2
  4297.  swap d3
  4298.  divs.l d6,d3
  4299.  move.l d3,a4
  4300.  
  4301.  sub.w d4,d5
  4302.  swap d4
  4303.  swap d5
  4304.  divs.l d6,d5
  4305.  move.l d5,a5
  4306.  
  4307.  move.l #NORMBRIGHTS,a2
  4308.  movem.l d2/d4,-(a7)
  4309.  
  4310.  moveq #0,d2
  4311.  moveq #0,d3
  4312.  move.b (a2,d0.w*2),d2
  4313.  move.b 1(a2,d0.w*2),d3
  4314.  sub.w #128,d2
  4315.  sub.w #128,d3
  4316.  
  4317.  move.w d2,d4
  4318.  move.w d3,d5
  4319.  muls ACOS,d2
  4320.  muls ASIN,d3
  4321.  sub.l d3,d2
  4322.  muls ASIN,d4
  4323.  muls ACOS,d5
  4324.  add.l d5,d4
  4325.  asl.l #2,d2
  4326.  swap d2
  4327.  asl.l #2,d4
  4328.  swap d4
  4329.  
  4330.  add.w #128,d2
  4331.  add.w #128,d4
  4332.  move.w d2,FSX
  4333.  move.w d4,FSY
  4334.  
  4335.  moveq #0,d2
  4336.  moveq #0,d3
  4337.  move.b (a2,d1.w*2),d2
  4338.  move.b 1(a2,d1.w*2),d3
  4339.  sub.w #128,d2
  4340.  sub.w #128,d3
  4341.  
  4342.  move.w d2,d4
  4343.  move.w d3,d5
  4344.  muls ACOS,d2
  4345.  muls ASIN,d3
  4346.  sub.l d3,d2
  4347.  muls ASIN,d4
  4348.  muls ACOS,d5
  4349.  add.l d5,d4
  4350.  asl.l #2,d2
  4351.  swap d2
  4352.  asl.l #2,d4
  4353.  swap d4
  4354.  
  4355.  add.w #128,d2
  4356.  add.w #128,d4
  4357.  move.w d2,SSX
  4358.  move.w d4,SSY
  4359.  
  4360.  moveq #0,d0
  4361.  moveq #0,d1
  4362.  moveq #0,d3
  4363.  moveq #0,d5
  4364.  
  4365.  move.w FSY,d3
  4366.  move.w SSY,d5
  4367.  move.w FSX,d0
  4368.  move.w SSX,d1
  4369.  
  4370.  ext.l d0
  4371.  ext.l d1
  4372.  sub.w d0,d1
  4373.  swap d1
  4374.  swap d0
  4375.  divs.l d6,d1
  4376.  
  4377.  ext.l d3
  4378.  ext.l d5
  4379.  sub.w d3,d5
  4380.  swap d5
  4381.  swap d3
  4382.  divs.l d6,d5
  4383.  
  4384.  movem.l (a7)+,d2/d4
  4385.  
  4386.  move.l d6,-(a7)
  4387.  bsr DOABITOFLINE
  4388.  move.l (a7)+,d6
  4389.  
  4390.  move.w TOPPTNUM,d0
  4391.  move.w BOTPTNUM,d1
  4392.  move.l TOPPTR,a3
  4393.  move.l #NORMVECTS,a2
  4394.  muls #6,d0
  4395.  muls #6,d1
  4396.  moveq #0,d2
  4397.  moveq #0,d3
  4398.  move.w 2(a2,d0.w),d2    ; firsty
  4399.  move.w 2(a2,d1.w),d3    ; secy
  4400.  sub.w d2,d3
  4401.  swap d3
  4402.  swap d2
  4403.  divs.l d6,d3
  4404.  
  4405.  subq #1,d6
  4406. .stickiny
  4407.  swap d2
  4408.  move.w d2,18(a3)
  4409.  swap d2
  4410.  add.l d3,d2
  4411.  add.w #20,a3
  4412.  dbra d6,.stickiny
  4413.  
  4414. .noline:
  4415.  rts
  4416.  
  4417.  DOABITOFLINE:
  4418.  subq #1,d6
  4419.  
  4420. .STICKINGOUR:
  4421.  swap d7
  4422.  move.b d7,2(a3)
  4423.  swap d7
  4424.  add.l a6,d7
  4425.  swap d0
  4426.  move.w d0,4(a3)
  4427.  swap d0
  4428.  add.l d1,d0
  4429.  swap d2
  4430.  move.b d2,8(a3)
  4431.  swap d4
  4432.  move.b d4,9(a3)
  4433.  swap d4
  4434.  swap d3
  4435.  move.w d3,16(a3)
  4436.  swap d3
  4437.  add.l d5,d3
  4438.  
  4439.  adda.w #20,a3
  4440.  swap d2
  4441.  add.l a4,d2
  4442.  add.l a5,d4
  4443.  dbra d6,.STICKINGOUR
  4444.  
  4445.  rts
  4446.  
  4447. FIRSTY: dc.w 0
  4448. LASTY: dc.w 0
  4449. FIRSTU: dc.w 0
  4450. SECU: dc.w 0
  4451. FIRSTV: dc.w 0
  4452. SECV: dc.w 0
  4453.     dc.w 0
  4454. FIRSTLEN: dc.w 0
  4455.     dc.w 0
  4456. LASTLEN: dc.w 0
  4457. MIDU: dc.w 0
  4458. MIDV: dc.w 0
  4459.  
  4460. *!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  4461.  
  4462.  
  4463.  
  4464. ************************************************
  4465. ************************************************
  4466. ************************************************
  4467. ************************************************
  4468. ************************************************
  4469. ************************************************
  4470. ************************************************
  4471. ************************************************
  4472. ************************************************
  4473. ************************************************
  4474. ************************************************
  4475. ************************************************
  4476. ************************************************
  4477. ************************************************
  4478. ************************************************
  4479. ************************************************
  4480. ************************************************
  4481.  
  4482.  move.w d3,TOPLINE
  4483.  move.w d4,BOTLINE
  4484.  
  4485.  
  4486.  
  4487.  
  4488. *********************************************
  4489.  
  4490. CALCSQROOT:
  4491.  tst.l d2
  4492.  beq .oksqr
  4493.  
  4494.  movem.l d0/d1/d3-d7/a0-a6,-(a7)
  4495.  
  4496.  move.w #31,d0
  4497. .findhigh
  4498.  btst d0,d2
  4499.  bne .foundhigh
  4500.  dbra d0,.findhigh
  4501. .foundhigh
  4502.  asr.w #1,d0
  4503.  clr.l d3
  4504.  bset d0,d3
  4505.  move.l d3,d0
  4506.  
  4507.  move.w d0,d1
  4508.  muls d1,d1    ; x*x
  4509.  sub.l d2,d1    ; x*x-a
  4510.  asr.l #1,d1    ; (x*x-a)/2
  4511.  divs d0,d1    ; (x*x-a)/2x
  4512.  sub.w d1,d0    ; second approx
  4513.  bgt .stillnot0
  4514.  move.w #1,d0
  4515. .stillnot0
  4516.  
  4517.  move.w d0,d1
  4518.  muls d1,d1
  4519.  sub.l d2,d1
  4520.  asr.l #1,d1
  4521.  divs d0,d1
  4522.  sub.w d1,d0    ; second approx
  4523.  bgt .stillnot02
  4524.  move.w #1,d0
  4525. .stillnot02
  4526.  
  4527.  move.w d0,d1
  4528.  muls d1,d1
  4529.  sub.l d2,d1
  4530.  asr.l #1,d1
  4531.  divs d0,d1
  4532.  sub.w d1,d0    ; second approx
  4533.  bgt .stillnot03
  4534.  move.w #1,d0
  4535. .stillnot03
  4536.  
  4537.  move.w d0,d2
  4538.  ext.l d2
  4539.  
  4540.  movem.l (a7)+,d0/d1/d3-d7/a0-a6
  4541.  
  4542. .oksqr
  4543.  rts
  4544.  
  4545.  
  4546. **********************************************
  4547. **********************************************
  4548. **********************************************
  4549. **********************************************
  4550. **********************************************
  4551. **********************    ************************
  4552. **********************************************
  4553. **********************************************
  4554. **********************************************
  4555. **********************************************
  4556. **********************************************
  4557. **********************************************
  4558. **********************************************
  4559. **********************************************
  4560. **********************************************
  4561. **********************************************
  4562. **********************************************
  4563. **********************************************
  4564. **********************************************
  4565.  
  4566. TOPLINE: dc.w 0
  4567. BOTLINE: dc.w 0
  4568.  
  4569.  
  4570.  
  4571. **********************************************
  4572. **********************************************
  4573. **********************************************
  4574. **********************************************
  4575. **********************************************
  4576. **********************************************
  4577. **********************************************
  4578. **********************************************
  4579. **********************************************
  4580. **********************************************
  4581. **********************************************
  4582. **********************************************
  4583. **********************************************
  4584. **********************************************
  4585. **********************************************
  4586. **********************************************
  4587. **********************************************
  4588. **********************************************
  4589. **********************************************
  4590.     
  4591.  
  4592.     
  4593.  dc.w 0
  4594. YDIFF: dc.w 0
  4595.  
  4596. SPINAROUND: dc.w 0    
  4597. XCOS: dc.w 0
  4598. YCOS: dc.w 0
  4599. XSIN: dc.w 0
  4600. YSIN: dc.w 0
  4601. XCOS3: dc.w 0
  4602. YCOS3: dc.w 0
  4603. XSIN3: dc.w 0
  4604. YSIN3: dc.w 0
  4605. XCOS2: dc.w 0
  4606. YCOS2: dc.w 0
  4607. XSIN2: dc.w 0
  4608. YSIN2: dc.w 0
  4609. XADD: dc.l 0
  4610. YADD: dc.l 0
  4611. ZADD: dc.l 0
  4612. XOFF: dc.w 0
  4613. YOFF: dc.w 0
  4614. OLDXM: dc.w 0
  4615. OLDYM: dc.w 0
  4616.  
  4617.  
  4618.  
  4619. TEXTUREADD: dc.w 0
  4620.  
  4621.  
  4622. **********************************************************
  4623.  
  4624. UVCOORDS: ds.l 250
  4625. ROTATEDPTS: ds.l 250*4
  4626. SHADOWPTS: ds.l 250*4
  4627. ONSCREENPTS: ds.l 250
  4628.  
  4629. ZOFF:
  4630.  ifeq LARGESCREEN
  4631.  dc.w 768
  4632.  endc
  4633.  ifne LARGESCREEN
  4634.  dc.w 630
  4635.  endc
  4636.  
  4637. LEFTRIGHT: ds.l 256
  4638.  
  4639. POLYGONDATA:
  4640.  ds.b 30000
  4641.  
  4642. OBJNAME: dc.b "ab3:vectobj/testcube",0
  4643.  even
  4644. doslibname: dc.b 'dos.library',0
  4645.  even
  4646. doslib: dc.l 0
  4647.  
  4648. ****************************
  4649.  
  4650. SINETABLE:
  4651.  incbin "ab3:includes/bigsine"
  4652.  
  4653.  
  4654. YANG: dc.w 0
  4655. XANG: dc.w 0
  4656.  
  4657.  
  4658. xmouse: dc.w 0
  4659. ymouse: dc.w 0
  4660.  
  4661. spleen: dc.w 0
  4662. lastspleen: dc.w 0
  4663.  
  4664. COPIEDPAL:
  4665.  dc.w 256,0
  4666.  ds.l 3*256
  4667.  ds.l 10
  4668.  
  4669. SHADOWBUFFER:
  4670. HIGHLIGHT: incbin "work:temp/HIGHLIGHT"
  4671.  
  4672. PALETTEBIT:
  4673. ; incbin "256palette"
  4674. ; dc.w $ffff,$fffe
  4675.  
  4676.  incbin "ab3:shadowtex/shadowpal"
  4677.  
  4678.  include "ab3:source_4000/chunky.s"
  4679.  
  4680. willy: ds.w 48
  4681.  
  4682.  
  4683. PALS:
  4684.  ds.l 2*49
  4685.  
  4686. pregour: dc.b 0
  4687. Gouraud: dc.b 0
  4688.  
  4689. PointAngPtr: dc.l 0
  4690. FRAMENUM: dc.w 0
  4691. PolyAngPtr: dc.l 0
  4692. PtsPtr: dc.l 0
  4693. LinesPtr: dc.l 0
  4694. POINTER_TO_POINTERS: dc.l 0
  4695. FRAME: dc.w 4
  4696. FLIBBLE: dc.w 0
  4697. START_OF_OBJECT: dc.l 0
  4698. num_points: dc.w 0
  4699. num_frames: dc.w 0
  4700. SORTIT: dc.w 0
  4701. PartBuffer: ds.l 2*32
  4702. endparttab:
  4703.  
  4704. x1: dc.w 0
  4705. y1: dc.w 0
  4706. z1: dc.w 0
  4707. x2: dc.w 0
  4708. y2: dc.w 0
  4709. z2: dc.w 0
  4710. x2b: dc.w 0
  4711. y2b: dc.w 0
  4712. z2b: dc.w 0
  4713.  
  4714. x3: dc.w 0
  4715. y3: dc.w 0
  4716. z3: dc.w 0
  4717.  
  4718. l1: dc.w 0
  4719. l2: dc.w 0
  4720.  
  4721. OBJONOFF: dc.l 0
  4722.  
  4723. SAVEHIGHS: ds.w 30
  4724.  
  4725. FASTBUFFER:
  4726.  dc.l fasty
  4727.  
  4728. fasty: ds.b 320*256
  4729.  
  4730.  ifne MOTIONBLUR
  4731. fasty2:
  4732.  ds.b 320*256
  4733.  endc
  4734.  
  4735. NORMBRIGHTS: ds.w 250
  4736.  
  4737. SPECBRIGHTS:
  4738.  dcb.l 100,31
  4739.  
  4740. ENDNORM:
  4741.  
  4742. LEFTUVS: ds.w 10*256
  4743. RIGHTUVS: ds.w 10*256
  4744.  
  4745. NORMVECTS: ds.w 3*250
  4746.  
  4747. ;WORLD: incbin "ab3:includes/world"
  4748.  
  4749. ;TWEEN: incbin "ab3:includes/tweenbrightfile"
  4750.  
  4751.  
  4752.  
  4753. NEBBIE: incbin "work:temp/nebbieroar"
  4754.     ds.l (192/4)*16
  4755.  
  4756.  SECTION blib,code_f
  4757.  
  4758. TEXTURES:
  4759.  incbin "ab3:shadowtex/shadowmaps"
  4760.  even
  4761.  
  4762. BLUR:
  4763.  ifne MOTIONBLUR
  4764.  incbin "ab3:shadowtex/blurfile"
  4765.  endc
  4766.  
  4767. Font: dc.l fontplace
  4768.  
  4769. fontplace: incbin "ab3:XENFONT.bin"
  4770. CHUNKYBUFFER:    dc.l    0
  4771. CHUNKYCOMPARE:    dc.l    0
  4772. CHIPBUF1:    dc.l    0
  4773. CHIPBUF2:    dc.l    0
  4774. SCREENBASE:    dc.l    0
  4775.  
  4776.  SIG1: dc.l 0
  4777.  SIG2: dc.l 0
  4778.  
  4779. RAWPTR: dc.l RAWSCRN
  4780. RAWPTR2: dc.l RAWSCRN2
  4781.  
  4782.  SECTION BGDROP,code_c
  4783.  
  4784. RAWSCRN:
  4785.  ds.l 2560*8
  4786. RAWSCRN2:
  4787.  ds.l 2560*8
  4788.